apo XASM 


SVT 


WON MH ALS ON ee 


A FOCAL INTERPRETER FOR THE 8080 


LOC 


0000 
0001 
0000 
9900 


0000 
0000 
0003 


0005 


0005 
0006 
0007 
0008 
0009 
OOOA 
00CB 
030C 
0000 
OOOE 
OOOF 


0012 


0013 
0014 
0015 
0016 
0017 
00378 
0019 
OO1A 
0018 
OO1C 


C3 


64 
ae 


00 


00 


00 


EB 


00 


00 


00 


OLJECT CODE 


04% 
20 


11 


SOURCE STATEMENT 


o m4 ee @o2¢ #2¢ 26 ae we ae #8206 oe 


: : 


XXX $ 


PROCTS 
INTELS 
INTRPS 


SPAD: 


SPADS 


SPAD: 


SBANK 


MULX4 § 


MULP33 
MULP2° 


MULP1¢ 


DIVX5; 


OP4S:- 


OP3S% 


OP2S% 


COMPLIMENTS CF PROCFSSOR TECHNOLOGY 


A FOCAL INTERPRETER FUR THE 8080 MICROPROCESSOR 


WRITTEN BY ROBERT ARNSTEIN 
5628 MEADGwW CREST NAIVE 


PALL. L97h: .. 


TEAAS 75230 


(214) 368-6620 


PAGF 1 


FOCAL IS A REGISTERED TRADEMARK OF DIGITAL FOQUIPEMENT CCRPORATION 


sASSEMALE FOR PROCFSSOR TECHNOLOGY 


SASSEMRALE FOR INTEILEC/ 80 


sADD OPFRAND 3RO FRACTION 


"$S9TH PARTTAL PRODUCT: 
$3RD PARTIAL PRODUCT 
$ADN OPFRANND 2ND FRACTION 


$3RO PARTTAL PRODUCT 
2nND PARTIAL PROQOUCT 
$ADD OPFRAND 1ST FRACTION 


3TO ROM CODE 


:SUB DIVISOR 4TH FRACTION 


SREMAINNER 3RN FRACTION 
?SUB OIVISOR 3RN FRACTION 


SREMAINNER 3RN FRACTION 
TREMAINNFR ONN FRACTION 
;SUB DIVISOR PND FRACTION 


SREMAINNER OND FRACTION 
sREMAINDER 1ST FRACTION 


NALLASs 
EGd 0 
EGyu 1 
EGU 0 
E&u f& 3 
It PROCT 
OKG 0 
JMP START 
Ow 8192 
Eur 
IF INTEL 
ORG 10H 
Dw 1C000H 
ENOF 
It x XX 
ORG 0 
JMP START 
Ow &192 
EOF 
LGew ¢ 
All 0 
EGU >f£-] 
MUV CeA 
MOV AeD 
AC] 0 
Eu >$-1 
MCV OA 
MOY AeC 
ACL 0 
buy >f-1 
uh P MULX5 

RAM ClvidE SuPROUTINE 

Sbl 0 
EGU >¢-] 
MUy Ael 
Stl 0 
EGU >i-i4 
MCV L af 
MOV Kell 
Sot 0 
EGu De tae 
MOY " Hae A 
MuUY Ral 
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ened XASM A 


CTetiy 


cé 
© 7 
cA 
£9 
£0 
i 
F2 
¢3 


~FOCAL INTERPRETER FOR THE 8080 


OBJECT CODE 


SOURCE STATEMENT 


Styl 
EG@y 
MOY 
Vd 
EGy 
KET 


ALI 
EGu 
MUy 
MCV 
ACI 


 Ebu. 


MOV 
VCV 
AC] 
EGu 
MOV 
vv I 
EGu 
JMP 


EGU. 
DE 

EGy 
EGU 
EGu 
E&u 
E Gu 
Ewu 


. EGu 


DS 
US 


(: 

>f-1 
FaA 
NeQ- 
>f£-1— 


3SUB DIVISOR 1ST FRACTION 


TREMAINOFR 1ST FRACTION 
TREMAINNDFR 4TH FRACTION 


sROTURN TU ROM 


0 
>=] 
LoA 
Ach 
0 
>$-1 
Hie A 
Net 
0 
>$-1 
FeA 
Ael 
>$-1 
HIVXe 


>$ 
G 
GVER+41 
PRE X+¢i 
ACCE +1 
ACCS41 
ACC1l41 
ACC2+4+1 
ACC3+1 
20 
30 


RAM LCCATIONS USED BY 
FLOATING POINT SYSTEM 


ADD DIVISOR 3RO FRACTION 


TREMAINNDER 3RN FRACTION 
SREMAINNER 2NND FRACTION 
sADD DIVISOR 2NND FRACTION 


SREMAINDER 2NN FRACTION 
SFEMAINDFR 1ST FRACTION 
3ADD OIVISOR 1ST FRACTION 


sREMAINNER 1ST FRACTION 
SKEMAINNDER 4TH FRACTION 


3TO ROM CONF 
THE BINARY 


TINITIALLY CLFAR 
sPREVIOUS EXPONENT 
sACCUMULATOR EXPOMENT - 
sACCUMINT ATOR SIGN 
sACCUMUL ATOR 14ST FRACTION 
sACCUMUL ATOR ONN FRACTIOR 
sACCUMUL ATOR 3RN FRACTION 
sSURTRACTTON FLAG 


SCRATCH FOR FUNCTIONS 


CHECKS STACK THEN CALLS RGUTINE PNINTFN TO RU Fae 


: RECURSIVE SUBROUTINE CALL 


CALL 
PCH. 


PCHK 


s;CHECK SP 
TCALL ROUTINE 


SUBROUTINE RETURN 


Lx] 
SHico 
REI 


—HeFRST 


PC 


PAGE 2 


SAVE DATA ON STACKe H&L: POINT TO WHATS SAVED AFTER POINT BFHIN)D IT 
DeEeBeAgtion DESTROYED 


DE 00 
OP1S: 
SF 
3E 690 
OPGAS 
C9 
| DIVX6$ 
C6 00 
OP3A% 
6F 
7C 
ce 00 
“OP2A: 
67 
7B 
CE 00 
OPiA$: 
SF 
3E 00 
: OP4&Xxs 
C3 57 12 
: 
OVER? 
00 
PREX% 
ACCE: 
ACCS: 
ACCi: 
ACC2: 
ACC3:; 
SF 
CO 41 OY PUSHJs 
E9 
RECURSIVE 
21 25 160 RETRN3: 
22 71 14% 
C9 
Di PUSHF ¢ 
06 O44 
TE PFis 
23 
FS 
05 
C2 74 #00 
D5 
C3 4&i O44 


PUP 
Mv 
MOY 
INX 
PUSr 
OCR 
Jh<¢ 
PLUSH 
JMP 


9) 
ReWCRDS 
Ae 

HH 

PSW 

8) 

PF 

C 

PCrHK 


sSAVE RFTURN ADORESS 
72 IS COUNTFR 
;CET A WORD? 


;SAVE ON STACK 

sCOUNT DOWN 

;LOOP 

SRESTORF RETURN ADDRESS 
;CHECK STACK AND RETURN 
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RNFO XASM 
STWNHT 


111 
112 
113 
114 
115 
116 
117 
118 
113 
120 
121 
122 
123 
12% 
125 
126 
427 
128 
429 
420 
bo 4 
122 
125 
124 
A209 


A FOCAL INTFRPRETER FOR THE &080 


Loc 


OO7F 
0080 
0083 
0084 
608s 
0086 
0087 
0088 
0088 


o08c 


_ 0080 


0030 
0093 
0094 
0095 


0098 


0098 
0090 
OOAD 
O0A3 
OCA4 
COAS 
O0A6 
Q0A7 
OOAS 
OoaCc 
OOAE 
OOAF 
00B2 
00B3 
00B% 
0087 
0088 
00B9 
QoBC 


OoBO 
ooce 
00C3 
docs 
oocé 
eocs 
OOCA 
ooco 


OLVECT COOL 


D1 
01 
09 
Fl 
2B 
77 
00 
C2 
05 
c9 


04 


84 


1B 


85 
60 
7F 
05 


6D 


00 


00 


14 
14 


14 
14 


00 
14 


00 


00 


14 


01 


14 
14 


00 


14 


SOURCE STATEMENT 


PAGF 3 


: RESTORE DATA FROM STACKe' H&L POINT TO PLACE TO PUT ITs DESTROYS AeDeF 


POPF PUP 
Lx 
DAv 
POPF1: POP 
DCX 
MGV 
DCR 
JN 


PUSH 


RET 


0D 
BewORDS 


B 

PSW 

4 

MeA 

C 
POPF1 
D 


sSAVE RFETURM ADDRESS 
sSET UP LOOP CONTROL 


GET wORN 


RESTORE YT 

;COUNT NOWN 

s+ CONTINUE 

SRESTORE RETURN ADDRESS 


GETS A CHARACTER FROM COMBUF ADDRESS RY AXOUT 
PUTS CHAKACTER IN CHAR 


3 
+ CHECKS FOR TRAN. 
$i NO PARAMETERS 

t UNPACK A CHARACTER. 


GETC: LX] 
GETC2: LHLo 
MOV 
INX 
SHLO 
STA 
CF] 
JNZ 
LOA 
ANA 
RN¢ 
,CaAx 
ANA 
MV 
JN¢Z 
MV 
UT3:3 STAX 
JMP 
UT2s LOAX 
MCY 
LOA 
ALO 
RNC 
CALL 
RET 


“] we we ae wo 


ACKC3 LLA 
Lhibu 
Ch] 
Jd 
vOV 
Tt.x 
Shuw 
It.x 


8eOMPSW 


UT2 
DEBGSW 
A 


B 
A 
AO 
UTS 
Ael 


B 
GETCe 
B 

NeA 
NEBGSW 
5: 


PRNTC 


CHAR 
AXIN 
RUBOUT 
RUBI 
RieA 

H 

AXIN 

H 


DESTROYS AeHel eReOeN 


;POINT BR TO DMP SWITCH 
;GET BUFFFR ADORESS 
;GET CHAR 

S;BUMP POINTYFR 

SAVE 

SAVE CHAR 

sSCHECK FOR 9? 

tNO TRACE 

tTEST FOR TRACE ENABLED 
tSET FLAGS 

tRET TRACE NISARLED 
;GET DUMP SWITCH + FLIP 
sSET FLAG 


sFLIP To 1 


3GET NEXT CHARACTER INSTEAD 
sGET DMPSwW 

sSAVE 

s;LOAD DE BGSW 

tAND OMPSwW 

,IF BOTH ARE ZERO 

tTHEN PRINT 


SAVE CHAR IN BUFFER POINTED TO BY ACTIN 
If CHAR IS KUBOUT LAST CHAR DELETED 
CHECKS FOR OVERrLOW 


PACK A CHARACTER, DESTROYS He Le A 


:GEY CHAR 

tPOINT Hel TO RUFFFER 
17S CHAR RUROUT? 
;JUMP IF sO | 
7STORE CHARACTER 
SEUMP POINTER 

tSAVE POINTER 


©1976 ProcessorTechnology-Corporation 
sTEST GOT OVERFLOW PRINTED IN U.S.A. 


aned. xASM 


STWNT 


1€6 
1€7 
1€8 
1€é9 
170 
171 
472 
173 
174 
175 
176 
177 
178 
1793 
480 
1@1 
TF2 
1&3 
1e&4 
425 
186 
187 
1&8 
1a9 
1¢0 
1¢1 
1¢2 
1¢3 
1¢4 
1¢5 
1¢6 
1¢7 
1¢8 
1¢9 
2e0 
ari 
at2 
ects 
2c4 
aes 
2(C& 
2c7 
208 
arg 
210 
eil 
212 
213 
214 
215 
246 
217 
218 
219 
220 


OBJECT CODE 


—. A FOCAL 

LOC 

OOCE 3E 
Gop0 BE 
00D1 cc 
0004 C9 
0005 2B 
0006 3E 
00D8 BE 
00D9 C8 
OODA 22 
00DD 3E 
OOOF CO 
Q0E2 C9 
00E3 A7 
COE4 C2 
QOE7 3A 
QOEA 37 
OOEB OA 
OOEC A7 
COED C8 
OOEE BA 
OOEF CA 
COF2 03 
OOF S 23 
OOFS 23 
OOFS -C3 
OOFSs SE 
QOFS 23 
OOFA 56 
OOFB EB 
OOFC D1 
OOFD E9 
QOFE 21 
‘0101 16 
0103 OA 
0104 Al 
0105 CA 
0108 BE 
0109 CA 
Q10C 14 
0100 03 
O10E C3 
0111 7A 
Cilie2 52 


FF 


oc 


FF 


EA 
85 


F8 


EB 


85 
00 


16 


11 


03 


7¢ 


03 


14 


°01 


00 


14 


00 


00 


“14 


01 
01 


01 


1% 


INTERPRETER FOR THE ANAND _. : set NAS e 


SOURCE STATEMiNI 


MV1 Ae3770 ;BUFFER ENDS WITH 377 
CMP MS I TEST ; 
Cz ERRORO sCALL IF FRROR (OVERFLOW) 
RET | 

RUB1S$ DCx H 3BACKUP POINTER 
MV I A+3770 1377 BEGIN OF BUFFER 
CMP M : 
RZ | sRETURN OF RUFFER EMPTY 
SHLO AXIN sSAVE POINTER 
MVI A+1340 sEXHO RUBOUT 
CALL PRNTC 
RET 


ROUTINE MATCHES A CHAR wITH ONE IN A LIST AND BRANCHES 

TO CORRESPONDING ROUTINE. RETURNS ON A NO}§MATCHe. BeC POINT 
TO CHAR LIST, Het POINT TO ADORESS LIST UPON ENTRY 

ZERO ENOS CHAR CHECK LIST 7 

SORE ANDO BRANCH ON AC OR CHARe DESTROYS OD 


MATCH 


ORTJS 


ANA 
JNZ 
LOA 
MOV 
LOAx 
ANA 
Ra 
CMP 
JZ 
INX 
INX 
INX 
JMP 
MOV 
INK 
MOy 
XCHG 
PUP 
PCHL 


A 
SRT2 
CHAR 
DeA 


0 


$ IS Ac=097 

sAC <50e USE IT 

rELSE USE CHAR 

sSAVE CHAR 

;GET 1ST COMPARE CHARACTER 
tSET FLAGS 

tZERO = END OF LISTe NO MATCH 
tMATCH? 

$JUMP IF FOUND 

tCHECK NEXT CHAR 

tADVANCE pOINTER 

TO NEXT ADDR IN TARLE 
SCONTINUE SEARCH 

IMATCH FOUND 

TLOAD ADDRESS FROM 

t TABLE 

7AND BRANCH TO IT 

sREMOVE RFT ADOR FROM STACK 


ROUTINE TO CHECK CHAR AGAINST A TABLE 
BeC POINT TO TABLE 
NUMBER STORED IN SRTCN IS DISTANCE TN TABLE 


: 
; 
; 
3; RETURNS TO PC+3 IF NOT FOUND 
; 
S 


SORT CHAR AGAINST TABLEs DESTORYS BeCeoHeLeAeD 


ORTC$ Lxl He CHAR 
MVI D+0 
SRC23 LOAx B 
ANA f 
JZ SEXC 
CMP M 
JZ SRC1 
INR D 
INX B 
JMP SRC2 
SRC1s MOV AD 
STA SRTCN 


SPOINT Het TO CHAR 
SRESET COUNTER 

sGET 1ST CHAR 

SSET FLAGS 

:ZERO = END OF TABLE 
STEST 

:FOUND MATCH 


sINCR COUNTER 


S$CHECK NEXT 
t<GET COUNT 


tSAVE COUNT PRINTED IN U.S.A. 
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are XASM 


STxtT 


NP ND ND OND 


OPPS WN OO OO wt DON F GIA) -~ 


Nd N) 


Vv Vv VV VNN VD UNVVUNNYV YD VY 


im On Cab Cad Cad On Cn ond Oe uM NY NN 


A FOCAL INTERPRETER. FOR THE 8080 


Loc OBJECT CODE 

0115 C9 

0116 £1. SEXC$ 

0117 23 

0118 23 

0119 eo 

O11A £9 
: IF Ax=O0O- 
PRNTCS 
PTC13 
XOUTL $ 
PRNTC 3 
PTC1: ° 
PTC2s 
XOUTL 3 


SOURCE STATEMENT 


Rt 7 
PCP 
If.x 
Ttux 
If.x 
PCH. 


PRINT CHAR, 
PRINT AC CT CHAR, 


i 
HI 
H 
HH 


XXX 
A 
PTC 
CHAR 
Feel 
LF 


CR 
xOUTL 
KYBRD - 
O7EH 
03H 
RECOVER 
AeCR 
XOUTL 
FelF 
TEST 

fa 
,OUTL 
Neb 
CRT 


INTEL 
A 
PTCL 
CHAR 
LF 


CR 
XOUTL 
S581i2H 

A 

pTC2 
X133 
034 
RECOVER 
AeCR 
XOUTL 


AeRUBOUT 


XOUTL 
AelF 
CoA 
%809H 


PAGE 


SCET RET ANMRESS 
sCALCULATF RET ANCRESS. 
TRETURN 


tRE TURN 


ELSE PRINT A 
DESTROYS A 


SET FLAGS 
3ZERO = USF CHAR 


tSAVE CHARACTFR 
SCONT ECHn LINE FEEN 


7C.Ce RREAK 


sCRT READY? 


sRESTORF CHARACTER 
sOUTPUT 


iCONT FCHN LINE FEED 


tCeCe BREAK 
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PRINTED IN U.S.A. 
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enag XASM 
STaNT 


276 
277 


Ne ANd AY 


AD AY 
avo On WW ot £ Of 


UMN COUN N Ud od al O 
tna Ne AND NY 


} 


A FOCAL INTERPRETER FoR THE 8080 | | 7 | PAGF 


Loc 


011B 
011C 
011F 
0122 
0124 
0125 
0127 
012A 
012D 
012E 
0131 
0134 
0136 
0139 
0138 
013€ 
0140 
0143 


0145 
0146 
0148 
0149 
O14A 
0140 
O14E 
06150 


0351 
0154 
0157 
015A 
015D 
O15E 
O15F 
0160 
0161 


0164 


OBJECT CODE 


3A 


00 


&6 


01 


36 
85 
3A 
FE 


1B 


87 


01 


01 


14 


SOURCE STATEMENT 


It PROCT 
PRNTCs ANA A 
Jhe - PTC1 
LLA CHAR — 
PTCi: Cri LF 
RZ 
CFl © CR 
JNZ XCUTL 
CALL STAT 
ANA A 
Nl PTC2] 
CALL X133 
Cra 03H 
CZ " RECOVER 
PTC2: MVI A«CR 
CALL XGUTL 
MV1 AeLF 
CALL —- XGUTL 
MVI A+O 
H XOUTL UVRIVER (OUTPUT). 
XOUTL > MOv CeA sSAVE TEMP IN RFG C 
TBE? In 0 ;CHECK TRF 
RLC PUT IN CARRY 
NOP | 73TO FOOL THE EXPERTS 
MUV AeC 
OUT 1 ;OUTPUT IT 
RET sALL DONE 
9 
ENOF 
If INTRP 
PRNTCS AKA A 
Jhd PTCi 
LCA CHAR 
PTC1$ 
XOUTLS$ OLT 3 
RET 
ENDF 
3 READS A CHAR AND PRINTS ECHO IF NECFSSARY 
; READ OATA INTO A CHARACTER AND PRINT IT 
READC?: CALL XI33 TREAD A CHAR 
STA CHAR sSAVE IT 
Lxl1 ReECHOLST POINT 8 TO LIST 
CALL SCRTC 3STORC 
NOP sFETURN + 3 
NOP 
REI SYESe RETURN 
Sus A ICLEAR A 
J.P PRNTC ECHO 


; PRINTS XXeXX ACCORDING TO LINENO ; 
; PRINT C(LINENO) | ©1976 ProcessorTechnology-Corporation 
PRNTLNS LLA t INENO41 7GET LINENO . PRINTED IN U.S.A. 


ened XASM 
STWNT 


R33 
Bz 
R23 
Bry 
325 
R26 
327 
Salt 
(329g 
z4Q 
zai 
R42 
23 
Ruy 
aus 
346 
2u7 
248 
zug 
zEO 
Ze 
xed 
Res 
zEy 
Reg 
ZE6 
Re 7 
328 
RED 
ae0 
Rel 
RE? 
%eS 
Bey 
res 
Ree 
-3¢e7 
x¢8 
rEg 
370 
3713 
372 
373 
R74 
375 | 
376 
277 
378 
379 
260 
RAG 
%e2 
Zp% 
re 
ae5 


A FOCAL INTERPRETER FOR THE 8080 


LOC 


0167 
Q16A 
016C 
O16F 
0172 
0175 
0177 
O17A 
0178 
017C 
O17E 
O1L7F 
0180 
0181 
0162 
0184 
0186 
0169 
01€B 
O18E 
018F 
0191 
0193 
0195 
0198 
019A 
0190 


O19€ 
O1Al 
O1A4 
O1A7 
01A8 
01A9 
O1AA 
C1AD 
OLAE 
01B1 
0184 
0165 
0178 
0189 
O1BC 
O1BF 
01C¢0 
01C1 
01C2 
01C3 
91C% 


OBJECT CODE 


25 
75 
73 


87 


c4 
CF 


86 


C4 
CF 


73 


01 
01 
14 
01 


01 


01 


02 


01 


01 


16 
14 
14 


14 


01 
01 


14 


01 


O11. 


14 


SOURCE STATEMENT 


PRNT¢ 


“T] ec wc ee of we 


Fes 


FEND35 


CALL 
MV 


CALL 


LCA 
CALL 
MV 1 
CALL 
RET 
MCV 
ANd 
RKC 
RRC 
RKC 
RKC. 
ALL 
Cel 
Jf 
ALj 
CALL 
MUY 
ANI 
ALL 
Crl 
JM 
ALL 
CALL 
RET 


PRT 
Ae"e? 
PRATC 
LINENO 
PRAT 
AeSP 
PRNTC 


ceA 


OFOH 


600 


an) 
$+9 


Lr i ee: Be | 


PRANTC 
A~D 
OFH 
600 
e994 
$+5 


Ate" Qtay 


PRNTC 


RETURNS NOT FOUND 
RERURNS+3 FUUND 

THIS LN=FUUND LINE OR NEXT LARGER 
LASTLN 


PAGE 7 


sPRINT 2 NIGITS 
s;PRINT " 


SPRINT STFP 
SPRINT SPACE 


sSAVE 
3;GET 1ST nIGITt 


MAKE CHAR 


sGET 2Nn 


LESSER AND/OR LAST 


TEXTpP IS Stl 
INOLN: 


Lx 
Shi 
Stila 
INX 
IKx 
INA 
LLA 
Cy.P 


PUSH 
LELG 


HeCFRS 
LASTLN 
THISLN 
+ 
H 
H 


LINENO41 


Vj 
FENDS 
f INON 
tt 
LINENO 
M 
FENDS 
FINON 
0 

D 

n 

0 

'f) 
THISLN 


SINIT POINTFRS 


tPOINT TO # IN LINE 
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RNf20 XASM 
STNNT 


REE 
2ET 
ze B 
Reg 
z¢0 
zey 
AC? 
xe3 
RCy 
.3¢§ 
206 
RCT 
x8 
Re9 
utd 
uti 
uf2 
BES 
— mars 
yrs 
née 
ut7 
us 
utg 
“40 
4qt 
4uje 
413 
494 
445 
uqd6 


f&FeF ee 
yy WY 
“wm of £ 


A FOCAL INTERPRETER FoR THE 8080 


Loc 


01C7 
01¢8 
01¢€9 
C1CA 
01CB 
OiCE 
O1CFr 
0102 
0105 
0106 
0107 
0108 
0109 
O1DA 
01DD 


01£0 
O1E3 
O1E4 
O1€5 
0168 
03£9 
O1EC 
031£0 
O1EE 
O1EF 
01F0 
01F 1 
O1F 2 
OiF 3 
O1F4 
O1F 7 
0iF 8 
O1F9 
OiFC 
01F0O 
O1FE 
0201 


0204 


0205 
0208 
020A 
0208 
O20E 


OBJECT CODE 


6F° 


73 
75 


cy 
AY 


82 


38) 


75 


82 


83 


82 
TA 


85 
20 


&D 
05 


14 


14 
14 


01 
01 


14 


14 


44 


14 
14 


14 


14 


14 


00 
02 


SOURCE STATEMENT 


If.x bt 
Ifhx YF) 
If.x 4 
IM Ht 
Shou AXOUT 
RET 
FINONS Lhilu THISLN 
St:uu LASTLN 
MOV Nem 
Ihx +! 
MC Y Hie M 
MUY LA 
GRA HY 
Jd FENN 
JhP Fe 
: TERMIANTE 3uFFEREQ LINE 
$ INSERT LINE POINTERES:e H=LASTLNe R=RUFR 
ENOLN: Lhtwu RUFR 
MOV Rell 
MCV Cel 
LhLu AXIN 
XCHS 
Lhivyu LASTLN 
MiY AeM 
STAX R 
Ifax H 
If.x B 
MCy AeM 
STAX B 
OCx H 
DC% (3 
LOLA RUFR 
MC VY. MeA 
INX HH 
LLA RUFREeL 
MOY Mel 
ES$ XCHo 
SHU BUFR 
Shiu LASTV 
RET 
3 NO PARAMETERS 
: OELETES LEAVING SPACES FROM COMMAND 
t IGNORE SPACtS ANN LEADING ZEROS 
SPNORGs | “LOA CHAR: 7GET CHAR 
Chi :IS IT A SPACE? 
RN2d 
CALL OL TC ;GET NEXT CHARACTER 
Ji P SPNOR 2 IGNORE SPACES 


20 @26¢ @0¢ 20° 


GET A LINE & FROM CHARACTERS 

IF ALLe LINENO IS | 

FORM LINENGO (Two BYTES) AS DCR CHAR LINF # 
GROUP # IN vYTES OF LINENUe LINE & IN BYTE 2? 
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RNeO XASM A FOCAL INTERPRETER FOR THE 8080 PAGE 9 
STYNT Loc OBJECT CODE SOURCE STATEMENT 

Bu} : RETURNS RESULT IN LINENO AND IN Oe& 

442 ; UNPACK ANC FORM A LINE NUMBERe DESTROYS Ae E 

443 0211 CD 05 O02 GETLN: CALL SPNOR SIGNORE LFANING SPACFS 

& a & 0214 3A 85 14% LOA CHAR 

4us 0217 FE 4i CFl ‘At s"ALL" IFS SPECIAL 

446 0219 CA AS 02 Jd ALL 

447 021C CD B9 02 CALL TESTN <TEST1 

448 O21F C3 8F 02 JMP GZERR SILLEGAL GROUP ZERO ISE 
Gug 0222 C3 8F O02 JhP GZERR OTHER 

utO 0225 3A 8&5 14% LOA CHAR 

ee | 0228 EG OF ANI OFH ISOLATE NIGIT 

yEQ 022A SF MOV Fed +SAVE DIGIT 

uf3 0228 CD 8D 00 CALL GETC GET NEXT 

GEG O22E cD B9 02 CALL TESTN ;TEST2 

KES 0231 C3 47 O2 JhP GT1 sPERION (ONF NIGXIT GROUP #) 
GEG 0234 C3 8F O02 JMP GZERR sOTHER 

ut? 0237 7B MOV AcE 3GET HIGH ORDER OVER DIGIT 
ut8 0238 07 RLC 

ued 0239 07 RLC 

4%EO 023A 07 RUC 
‘ued 0238 07 “REC 

ut 2 023C SF : MOY EA <FIX GROUP 

“EZ 0230 3A 85 14 LULA CHAR | 

KEY 0240 EG OF AN QFH 

BES 0242 FS PUSH PSW SAVE A 

KEE 0243 CD gD 00 CALL GETC ;GET NEXT CHAR 

yé7 0246 Fd POP PSW 

ué8B 0247 B3 GT13 OKA E . 

YEG 0248 CA 8F O02 i Ja GZERR tILLEGAL FROUP ZERO 

u70 0248 32 8&7 14 STA LINENOF1 

a7. O24E cD p9 -02 CALL TESTN :TEST 

u72 0251 C3 SA 02 JMP GTe2 sPERTON 

873 0254 C3 B6 Ce JihP GERR SOTHER 

u74 0257 C3 8F 02 JMP GZERR $TOO LARGF GROUP 

475 025A cD ed 90 GT2: CALL GETC FGET NEXT CHAR 7 
876 0250 CD B9 Oe CALL TESTN STESTS 

477 0260 C3 8F 02 JMP GZERR PERIOD 

476 0263 C3 B6 Oe JMP GERR s;OTHER 

u7g 0266 3A 85 14 LLA CHAR 

yao 0269 EG OF AN’ OFH 3GET DIGIT 

wel 026B 07 REC s;MOVE OVER 

REQ 026C 07 ALC 

4ye3 024D 07 RLC 

BEY O26E 07 RLC 

Yé5 O26F SF MOY FeAl SAVE 

BEE 0270 CO ad 00 CALL GETC sKEAD LAST CHAR 

uE7 0273 cD 6 B9 02 CALL TESTN ;TESTY 

yt 0276 C3 B6 982 JUMP GERR tPERION 

weg 0279 C3 92 902 JUMP GT4 2OTHER 

wen 027C 3A 85 14 LOA CHAR sDIGIT 

uci O27F £6 OF ANI OF 

ue? 0281 B3 GT3:3 OKA 7 

4e3 02382 SF MCY freA 

wey 0283 cD ed 00 CALL GETC CHECK SIZE ©1976 ProcessorTechnology-Corporation 
45 0286 cD 6 B9 «(82 CALL TESTN i TEST PRINTED IN U.S.A. 


pned XASM 


STUNT 


4ucé 
uc? 
4e8 
uc3 
sco 
eri 
at? 
C3 
eng 
505 
aE 
af 7 
58 
&C9 
510 
41 
542 
543 
514 
“45 
546 
547 
578 
819 
~820 
521 
522 
523 
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PAGE Pam 
Loc OBJECT CODE SOURCE §S 
0289 C3 pé O02 JPP GERR SPERIOO 
028C C3 932 02 JMP GT4 OK 
O28F CD CC 03 GZERRS$ CALL FRRORO ;C THER sILLFEGAL FROUP ZERO 
0292 78 GT43 MCV AoE : 
0293 32 86 14 STA LINENO TSAVE 
02965 — A7 ANA A 
0297 CA Ad 02 Jaz GROUP sSTEP IS 
029A 3E «680 MV 1 Ke2000 ;SETP 
029°C 32 84 14% STa MAGSW 
029F C9 RET | 
02A0 97 GROUP $ Su3 Fay ;GROUP 
O2Al1 32 84 14 STA HAGSW - 
O2A4 C9 RET 
02A5 3—E 61 ALL? MV a Kel 
O2A7 7-1, Se STA NAGSW sALL 
O2AA SECS MV1 AsRUBOUT 
O2AC 32 85 44 STA CHAR 
O2AF 2i 01 £00 Lx. Hel 
0282 22 86 14% Shiu LINENO 
0285 co RET | 
O2B6 CD nce O3 GERRS CALL ERRORY ;BAD LINE 4 
+ RETURNS IF PERInNp 
3 RETURNS+3 IF NON-DIGIT 
$ RETURNS*+6 IF OGIT 
; NO PARAMETERS 
; TEST FOR PERIOD. OTHERe NUMBER DESTROYS Hele ReCedA 
0289 01 03 00 TESTNS? Lx PS. 3PC INCREMENT 
O2BC Ei . PCP HY ;GET RETURN ANDRESS 
028D “3A 85 14° LLaA CHAR ;GET CHARACTER TO TEST 
02C0 FE 23E Chl 1? i;TEST FOR PFRIOO 
02C2 CA 01 402 Jd 31 
02C5 FE 3A Cred ZA 
O2Cc7 Fe pO 0Q2 Jk R3 
Q02CA FE %0 CFI 30H 
O2cc FA pO. 02 JN, B3 
O2CF 09 DAu f3 ;YES 
0200 09 B33 DAY 3 
0201 37 B1s Su3 i ;CLEAR AC 
02D2 E9 PCHL 
; TEST SORTCN FOR LEFT PAREN 
$ RETURN4+3 IF SO 
+ SKIP IF S<SORTCNC11 (IF. ANLePAR) 
0203 SA 7C 14. TSTLPRS LOA SRTCH 
0206 47 MOV Bel 
0207 D6 Og Sui ] $<12? 
0209 FO RP 
O2UA a POP H GET RETURN ANDRESS 
0206 78 MOV AeB 
020C 06 oO6 Su] 6 1>5? 
O2DE FA £€5 02 JM, T2 3f0 
O2Fi 23 If.x 14 
C?E2 23 If.x H ©1976 ProcessorTechnology-Corporation 
8205 23 If.x H PRINTED IN U.S.A. 
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A FOCAL INTERPRETER FOR THE 8080 


LOC 


O2E4 
0265 
O2E6 


O2E7 
02E8 
O2E3 
Q2EC 
02ED 
O2FE 
O2EF 
02F0 
O2F1 
Q2F2 
O2F 3 


O2F4 
02F5 
O2FE6 


‘02F9 


O2FC 
O2FF 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0308 
030D 
0310 
0311 
0312 
0313 
0316 
0317 
0318 
0319 
Q31C 
031D 
O31E 
O31F 
0320 
0321 
0322 


OBJECT CODE 


E9 
97 
£9 


47 
SA 
BB 


87 


05 


30 
FE 


85 
46 
25 


B9 


ee 


14 


02 
15 
00 


14 


03 


02 


03 


SOURCE STATEMENT 


T23 


3 SKIP IF 
TSTGRP3 


@e we 


RETURNS 


ee 26 #06 


oe 


TESTC: 


XTe23 


PCHiv 

SbLS A 

PCHL 
G(AC)=G(LINENO) 
MOY ReA 

LLA LINENOF! 
CMP F3 

MCy AeB 

RN2 

XTHL 

INX h 

INX HY 

INX Ht 

XTHL 

RET 


TEST THE NATURE OF AN ALPHABETIC 


TERM 


RETURN+3 NUMBER 

RETURN+6 F 

RETURN+9 ALPHANUMERIC 

TERMS’ NUMBER: FUNCTION:s LETTER ANN IGNORE SPACES 


PUSH B 

PUSnxA D 

CALL SPNOR ,IGNORE SPACES 
LXI Re TERMS sTEST TERMINATORS 
CAuL SORTC 

POP D 

PUP B 

RET tSORTCN IS SET 
PUP 9) 
POP B 

PUP H sNOT ‘TERM 

INX bt ; 

IN\x ‘Y 

INX t{ 

LCA CHAR 

cFl ‘Ft sTEST FOR *F* 
JZ XxT3 ;YES 

PUSH H 

PUSH 8 

PUSH 9) 

CALL TESTN 

PUP D 

PCP R 

RET 7:PERIOO 

JMP XxT2 I:CTHER 

POP 0 

PUP B 

RL {NUMBER 

POP 0 

PUP B 

PUP H 

Ix HH 


PAGE 


11 


©1976 Processor-Technology-Corporation 
PRINTED IN U.S.A. 


PNeO XASM 
STWHT 


6re 
607 
ere 
arg 
£10 
&41 


vv 
O ON DHA WN 


a \)  ND 


DANARAAHNHNDSY. 


A FOCAL INTERPRETER FOR THE 8080 


PAGE 
LOC OBJECT CODE SOURCE STATEMENT 

0323 23  Ihx HH” 
0324 23 Ihx tf 
9325 23 XT33 Tlux 1 
0326 23 INX H 
0327 | 23 INA 4 
0328 E9 PCHL SRETS TeNsksa 

sUNCHAIN A LINEe RECOVER SPACE 

sREMOVE OLD LINE oF TEXT 
0329 CO SE OQ1 DELETE: CALL FINDLN SF INO THE CINE 
032C cg RLT sALREANY GONE 
032D 00 NOP 
O32E 00 NOP 
O32F oF SL3 A 
0330 32 7B 15 STA TEMP41 
0333 1£ 694 MV 1 Fey sCOUNT POINTER AND LINE NUMBER 
0335 SE 1 MVd Agel sCISABLF TRACF - 
0337 32 77 #14 STA OEBGSW 
033A CD ED 00 Dis CALL GETC TMEASURF 1 ENGTH OF LINE To DELFTE 
0330 1C INR ‘7 
O33E 3A 85 14 ‘LOA CHAR 
0341 FE OD CFl CR 
0343 "C2 3A 03 JN¢ Di 
0346 78 MOV Ack 
0347 32 -7A 15 STA TEMP 3SAVE COUNT 
O34A 2F CRA sAND NEGATIVE COUNT 
0348 3C INR A 
034C 32 7F 24 STA CNTR 
O34F eA 73 14 LhiLu THISLN tCHECK FOR FINISHED 
0352 23 INx t4 
0353 23 It.x H sPOINT TO LINE # 
0354 TE MOV AeM 
0355 23 INx H 
0356 B6 OA M | ;CHECK FOR LINE ZERO 
6357 CA 64 OY JZ START 7 IGNORF LINF ZFRO NELETE 
0354 2A 73° 14 Lhiky THISLN . 
0350 uy MUv Bel | $SET UP POINTER © 
035E 40 Muy Cel 
O35F 2A 75 14 Lhive | ASTLN SDISCONNECT 
0362 OA LOAx .) 
0363 77 MEY “eA 
0364 23 IN H 
0365 03 INX 3) 
0366 OA LLAx R 
0367 0B DOCx a] 
0368 77 MOY Mel 
0363 21 25 16 Lxl HeCFRS tSTART AT LINF O 
036C SE DOK: MOV FeM ;GET NExT LINE 
0360 78 MOY AeE 
O36E 23 INA i 
O36F 56 MCy DeM t0eE POINT TO NEXT LINE 
0370 B2 OKRA 8) 
0371 CA SF Q3 Jd DONE sCHECK FOR FINISHED | 
0374 2B COX H ©1976 Processor-Technology-Corporation 
0375 7A MOV Awd 


PRINTED IN U.S.A. 
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STWNT LOC OBJECT CODE SOURCE STATEMENT 

661 0376 P& ChP R : 

BE? 0377 DA 98 Q3 JC D2. ts THISLN >? 

63 O37A - C2 B82 903 Jhee D3 sNOT EQUAL 

664 0370 7B MCY AeE 

645 O37E Bg ChP c STEST LOW ORNER 

fEG O37F CA 98 3 JC De :GREATER 

667 03&2 ES 033 PUSH ai sSAVE POINTER 
AE8 03&3 2A 7F 14 LhiLu CNTR © sGET DISPIt ACEMENT 
669 O3&6 19 O04: DAD Q ; :A40N OTsPc<co 

470 0387 22 7C 15 Stilu TEMPO sSAVE 

a71 O3GA E11 FOP, $4 sRESTORF POTNTER 
472 0388 3A 7C 15 LLA TEMPO ;GET NEW POINTER 
673 O38E 77 MCV mel sREPLACF ALN 

474 O38F 23 INX HH 

675 0390 34 70 15 LOCA TEMP24]4 

476 0393 77 MOV vel 

£77 0394 EB . XCH6 ;GET NEXT 

478 0395 C3 6C 03 JM.P DOK S$ CONTINUE 

479 0398 £5 D2: “PLUSH M4 > THISULNDS sSAVE POINTER 
480 0399 21 00 9Q0 Lxd Hie O sCISp IS o 

6F1 039¢ C3 86 03 JP 4 

£2 

ee3 3: GARBAGE CCLLECTIGN (LINE DELETED) 

Key O39F 2A 73 14 DONE $ LhLO THISLN tGARBAGF COLLECTION 
BAS 03A2 ES | PUSH H SXRT 

APG 0343 EB XCHS 

eE? O37.4 2A ° 7A 15 ee ae TEMP ;GET DISP 

£e8 03/47 19 DAD ‘a :ADD 

q29 0348 E5 ; PUSH H ~XRTe2 

6¢0 0O3A9 2A 82 18 Lhite BUFR 

Ze1 O3AC EB XCHo 

ge2 0300 “2A 7F 147 LhLU =o CNTR 

a¢3 0360 19 | CAO n sCALCULATF NEW FND OF BUFR 
qAc4 03e1 22 82 14 ShLY BUFR, 
6¢5 0384 2A 60 14 Lhiuo AXIN 

Ac6 0387 7C MOY AedH 

gc? 0368 2F CMA SCALCULATF COUNT FOR LINE MOVEMENT 
£¢8 0389 67 MCy He A 

£eg9 036A 7D MC y Aek 

7¢0 .03B8B 2F Cra 

ee age e 038C 6F MOUv LaA 

ale 03RD C1 | PCP 0 :XRT2 

Tf3 O3BE D5 PLUSH D SAVE 

7r4 O3BRF 19 DA fs 

775 03c0 uy MCY Beli : 

7¢.6 03¢1 G&D MCY Cel TBeC HOt O COUNT 

77 03C2 2A 60 14 LhLu AXIN ° 
78 03¢5 EB XCHo 

79 03C6 2A 7F 124 Lily CNTR 

740 03C9 19 DAD ) ;CALCULATE NEW AXIN POINTER 
711i O3CA 22 6D 14 Shiv AXIN 
742 03CD D1 PCP 0 ~XRT2 

713 O3CE El | | PUP MH wXRT 

Le ene | | Res oe PME OI SHI ky BONE ©1976 Processor-Technology-Corporation 
715, 0300 77 | | MCy Ma 


PRINTED IN U.S.A. 
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STUNT LOC OBJECT CODE . SOURCE STATEMENT 

716 0301 03 INX RB 

737 0302 23 ‘INK . Hi. 

7318 0303 13 . TAX 8) 

7439 0304 78 MOY AheB sFINISHFO? 

720 0305 bi OKA 6 

721 0306 C2 CF 03 JNZ ONY 3NO 

722 0309 C3 29 03 Uh Pp OELETE © 

723 

724 ; ERRORS 

725 O3DC ERRORSS$ EGU $ 

726 030C El ERR2: PUP 4] ;GET ERROR NUMBER 
727 0300 22 86 14 Shiu LINENO 

728 03£0 C3 E9 0Q3 JMP RS 

729 | 0363 21 odo 00 RECOVERS Lxd He O sSET UP INIT COUNTER 
729 O3£6 22 86 14% Stiky LINENO 

724 0359 06 20 R33 MV 1 8e400 

T22 O3EB 21 AB 15 Lxl tie OP TRO sFIX I/O RUFFERS 
723 O3EE 22 60 14 SHLO AXIN . 
72y O3F1 36 00 R2s MV) MeO ;CLEAR RUFFER 

735 O3F3 23 INX H 

726 O3F4 05 DCR 3 

727 O3F5 C2 Fl 03 JNZ R2 

778 O3F8 2A 03 OO LHLO SPAD 

729 O3FB FS SPHL 

740 ° O3FC  3E OD MV i A«cCR 

741 O3FE CD 1B O01 CALL PRNTC 

742 0461 3E O3F MVI Av? 

743 043 CO 4B O11 CALL PRNTC SPRINT 

744 0406 CD 64% 9Q1 CALL PRNTLN sPRINT ERROR 

745 0409 2A 71 14 LHL PC 

7u6 O4CC 23 INA H 

Tuy 046) 23 : INK H 

748 O4CE 7E ; MCy AeM 

‘749 O4OF 23 INX H 

720 0410 66 MOV HeM 

7E4 0411  6F MGv LoA 

TE2 0442 BY OKA 1 tAND LINE # UNLESS Z2FRO 
7e3 0413 CA 26 O04 Je RY 

7eY 0416 22 686) 14 ShiLu LINENO ;GET LOC. OF ERROR 
725 0419 3E «640 ° MV I Av’ar sPRINT 4 

i cd - ar 04418 CD 1B 01 CALL PRNTC 

727 O4iE SE 20 ) MV I A«SP 

728 0420 CO 16 QO1 CALL PRNTC SPRINT SPACE 

7e9 0423 CO 64 O1 CALL PRNTLN sPRINT LINE a 

7¢e0 0426 3— 6000 R4s MV 1. ACR 

7éL 0428 CO 1B Qi CALL PRNTC 

Tee 0428 C3 64 OY JMP START 

7€3 

7E4 ; READS KEYGOARD:e RETURNS CHARACTER IN A 

7TéE5 ; INPUT WAIT 

7TE6 II XXX 

TET XI335 IN KYBROD TREAD KEYROARD 
7€8 _ ANA A ;SET FLAGS . 
TES Wis x¥133 iNOTHING REAN ©197§ Processor-Technology-Corporation 
7790 : AN 7FH tSTRIP PARITY 
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771 
772 
773 
774 
175 
776 
777 
778 
779 
7EO 
7e4 
FeO 
7E3 
7AY 
7&5 
7&6 
7&7 
728 
7@9 
7E0 
7C¢41 
7E2 
73 
7¢4 
765 
706 
7¢7 
758 
90S 
KOO 
2Cji 
at2 
ACs 
avy 


acts 


aC6 
ae? 
ars 
e(9 
a0 
£41 
RqY2 
243 
aq 4 
aq5 
2496 
47 
24.8 
a+9 
20 
R21 
ase 
aca 
ney 
AES 
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Loc 


O42E 
0430 
0432 
0433 
0434 
0435 


0436 
0439 
043C 
O43E 
0440 


O441. 


0442 
0443 
0446 
0447 
0448 
0448 
O44C 
044) 
O4U4E 
OG4UF 
0450 
0451 
0452 
0453 
0454 
0455 
0458 
045B 
O45C 
O4SE 
O46l1 
0462 
6463 


00 


40 


00 


7A 


ec 
61 


OA 
NC 


OBJECT CODE 


04 
04 


00 


14 


03 
04 


03 


SOURCE STATEMENT 


X1335 


X1335 


STATS 


ee 


+ CHECU STACK FOR 


PCHK 


PCHK2$ 


LKOF 


PUSH 
PLUSH 
Lxl 
Dad 
XCrno 
Lhivu 
MCv 
ChA 
MC y 
MCv 
ChA 
MU 
It.x 
DAY 
MCV 
Af, A 
Ch 
Jig 
Cha 
Su] 
CC 
POP 
PLP 
RET 


INTEL 
38031 
TEU. - 


INTRP 
0 
7FH 


OVERFLOWe 


4 


nN 
=] 


Hie O 
SP 


LASTV 
Acti 


Hea 
Adl 


LeA 

tH 

f) 

AcH 

A 
£RRORS 
PCHK?2 
lL 

120 
FRRORZ 
oz 

H 


tSTACK OK 


PAGE 


3GET DEV STATUS 


sRETURN IF ZERO (NO CHAR) 
MAKE IT FF 


HeLeOeF eA NEFSTROYEN 
sSAVE HRL 

sSAVE ORE 

sCLEAR Hel 

:GET SP 


“SUBSTSACT 


tLOWEST LOCATION 


i TEST 


SWITHIN TEN STACK LOCATIONS? 
31F < O THE STACK OVERFLO” 


©1976 Processor‘Technology-Corperation 
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870 
R74 


873 
R74 


877 
an R- 
R79 
SFO 
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LOC OBJECT CODE SOURCE STATEMENT 
: COMMAND INPUT DRIVER 
0464 21 64% 15 START: Lxd He CFRSX 1tGET PC =s0 
0467 22 71 .14 Shlo PC, 
O4GA 3E C3 MV I A.OC3H SET UP RFSTART AT 0 
O4u6C 32 00 00 STA 0 . 
O46F 21 FS O03 Lxl He RECOVER 
0472 e2 61 00 ShLO- 1 
0475 97 Sus A 
0476 32 33 900 STA OVER#SCRB iCLEAR GVFERFLOW 
0479 32 8E 14 STA LIST3+1 tRESET MONIFY 
047C 32 77 14% STA DE BGSW 
O47F 3E O01 . MVE Ael 
0481 32 9E 14% STA DMP SW tINIT UNPACK AND TRACE SwITCH 
0484 cA 03 £00 IBARS$ Lhlu SPAD ;GET STACK START LOC 
0487 F9 SPHL :SET STACK POINTER 
0488 21 04 15 Lx1 H»eCOMBUF 
048B 22 60 14% Shee AXIN 
O48E ZE ODA MVd Neo! 
0490 CD 18 O01 CALL PRNTC 
0493 CD 51 01 IGNOR? CALL READC 
0496 97 : Sbt3 A 
0497 01 8A 24 Lx BeLIST? 
Ou9A 21 C8 18% LX] He INLIST 
0490 CD €3 00 CALL SORTY 
O4A0 CO gd 00 CALL PACKC . 
O4A3S C3 93 04% JP IGNOR 
>; COMMAND INPUT PROCESSOR 
OuAG cD 6 BD 00 IRETNS CALL PACKC sPUT CR IN RUFFER 
O4L3 97 SL3 A ; 
O4AR CD 1B 01 ~ Chex PRNTC 
O4AD 21 mp4 15 . Lal HeCOMBUF sINITIALI7ZE TEXTp 
0480 22 €F 14 —- GONE; ShlLo- AXOUT 7SAVE IN POINTER 
0483 ~ €D gD O00 CALL GET? sREAO ist CHARACTER 
O4R6 2A 03 Ob Lh SPAD ;GET STACK START LOC 
04B9 F9 SEHL :SET STACK POINTER 
O4GA CD 695)~—lCOO2 CALL SPNOR t,IGNORE LFANING RLANKS 
04BD CD B9 De . CALL TESTN :IS THERE A LINE # 
o4uco C3 eaF O02 gh P GZERR SPERIOOse TLLEGAL 1ST CHARACTER 
04c3 C3 04 Q5: ss | UMP _ JYNPTX TIMMEDAITF COMMAND 
O4C6 3zE—E 6Ol _ MV Acl FLIEN # 
04Ccse 32 77 14 STA NEBGSw ;CISABLF TRACE 
O4CB CD 11 O02 CALL GETLN “READ LINE NUMBER 
O4ceE 3A 84 44 LLA NAGS s;TEST FOR SINGLE LINE 
040i FE 80 CF 2007 
0403 Cy Nc QO3 Cne¢ ERRORS sBAD LINE 
0406 ZA @&2e2 14 Lhe BUFR sSET POINTERS 
0409 23 Ifux Z| 
C4DA 23 INX H 
O4DB EB XCHo 
O40C 2A 86 14 LHLo LINENO sSAVE LINF # 
O4DF EB XCHG 
O4EO 73 MU Me€ ©1976 Processor-Technology-Corporation 
O4E1 23 I(x | 


PRINTED IN U.S.A. 


aned XASM 
STUNT 


Ae} 
ALO 
Be 
feu 
Aas 
SEAL 
Ret 
FEB 
APS 
250 
Roi 
aco 
acs 
acy 
acs 
ano6 
acy 
Rco8B 
a$9 
900 
aCi 
902 
a03 
9C4 
9¢C5 
96 
9(7 
9(8 
9¢9 
970 
941 
242 
943 
914 


A FOCAL INTERPRETER FOR THE 8080 


LCc OBYECT CODE SOURCE STATEMENT | 

O4F2 72 MOV MeD 
O4f3 © 23 Ifvx H 
O4E4 e2 60D 14 Shity AXIN 
O4E7 CD O5 O02 CALL SPNOR 
O4EA C3 FQ OY JMP SRETN 
O4EL CD ad 00 CAuu GETC 
OGFC CD BD 00 SRETNS CALL PACKC 
Q4F 2 3A 8&5 14 LlLa CHAR 
OuF6 FE oD Ctl CR 
O4F& C2 ED 9QO& JN SRETN=3 
O4FB CdD 29 O38 CALL DELETE 
O4FE CD EO 01 CALL ENDLN 
0501 C3 64. Q4 JhP START 
0504 21 B87 O85 INPTX$ Lad HePROC 
0507 CO 66 Q0 CAL | PUSHY 
O50A 2A 71 14 LiLo PC 
0500 JE MCy haM 
O50E SF MU BoA 
O50F 23 INA H 
0510 56 MCV DOeM 
0511 B6 ORA Vv 
0512 EB XCHG 
0513 CA 64 O04 JZ START 
0516 22 7% 18 Shilo PC 
0519 23 INX H 
Q51A 23 INA HH 
0518 23 Ihr H 
O51C 23 INx Y 
0510 C3 BO O88 Jh.P GONE 

3 RECURSIZE UPERATE + 
0520 CD 11 02 DOs CALL GETLN 
0523 2A 71 -14 Lhd PC 
0526 E5 PUSH H 
0527 2A 6F 14 LHLU TEXTP 
Q52A E5 PiuSn H 
0528 <i 84 14 DGRP$ Lal lie NAGSW 
O52E CD 71 QO CALL PUSHF 
0531 3n 84 14 LLA NAGSW 
0534 AT ANA A 
0535 FA 88 Q5 JM NOONE 
0538 CO SE O01. CALL FINDILN 
0538 00 NOP 
053C 00 NOP. 
0520 00 NOP 
O52€ 2A 73 14 LHLG THISLN 
0541 22 71 14 Sti pc 
0544 23 INK H 
0545 23 If.x 4 
0546 23 INA +4 
0547 7E POY AaM 
0548 2B DCA H 
0549 CD EF? O2 CALL TSTGRP 
O5S4C co nc 03 - CALL ERROR? 
O546F 21 B4 05 DGRP13 Lxl HePROCESS 


PAGE 


s;IGNORE SPACES AFTER LINE # 


;REAG 1ST CHAR AFTER LINE 2 
TSAVE TEXT 


;TEST ENO OF LINE 

SNOT ENN 

sFEMOVE OL LINE IF ANY 
AINSERT NFW LINE 
TREINIT POINTERS 

SCALL PROC. 


$CHECK NEXT LINE 
FEND OF PROGRAM? 


SYES 


SPROCESS NEXT COMMAND 


EXECUTE OR CALL 


sEXECUTE ANE LINEe GROUP OR ALL 


tSAVE PFC 


s;SAVE NAGSWe CHARe LINENO 


s;CHECK SwITCH 


sONE LINE 


SINIT FOR GROUPe SEY THISLUN 


SSET GROUP WO 


sCHECK VAL INITY 
3NO SUCH GROUP 


sPROCESS COMMAND PRINTED IN U.S.A. 
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ened XASM 
STVNT 


926 
927 
928 
979 
940 
941 
942 
943 
Su4 
545 
946 
Su7 
948 
949 
3£0 
921 
‘Geo 


977 
37.8 
Si? 


925 
S86 


— 9n9 
9¢0 


A FOCAL INTERPRETER FOR THE 8080 
LOC OBJECT CODE 
0552 — CD 66 00 
0555 21 e@4 14 
0558 CO 7F 00 
0558 2A 71 14 
O55E TE 
O55F 23 
0560 Bé 
0561 CA 9A 05 
0564 2B 
0565 SE 
0566 23 
0567 56 
0568 EB 
0569 23 
OS6A 23 
0568 3A 84 14 
OS6E A7 | 
OS6F CA 75 05 
0572 F2 7E 05 
0575 23 OR33 
0576 7E 
0577 2B 
0578 CD E7 02 
057B C3 OA 05 | 
OS7E 5E OR22 
OS7F 23 
0580 56 
0581 EB | 
0582 22 86 14 
0585 C3 2B 05 
0588 CO SE O01 DOONES 
0588 cD oc 03 
O58E£ 21 B84 05 
0591 CO 66 00 
0594 21 84 44 
0597 CO 7F OO. 
059A El OCONT? 
0538 22 6F 14 
059 El 
O59F 22 71 14 
osA2 C3 B7 O05 
: 3 PRIMARY 
O5A5 CO 11 02 GOTO: 
O5A8 CD sE— 1 
O5AB CO oc 03 
OSAE 2A 73 14 
O5B1 22 71 14 
0584 cD sD 00 PROCESS: 
0587 3A 85 14 PROCS 
OSBA FE aD 
OSEC C2 co 05 
O5BF C9 PC1: 
05c0 01 UF 15 PC23 
05C3 CD FE 00 


SOURCE STATEMENT 


CALL 
LX] 
CALL 
LHD 
MOV 
TWX 
OKA 
JZ 
DCX 
MOy 
Ix 
MCV 


CONTROL 
CALL 
CALL 
CALL 
LHLO 
Sho 
CALL 
LUA 
CF1l 
JN 
RET 
Lxd 
CALL 


H | 
NAGSW 
A 

ORS 
DR2 

H 

Adt4 

H 
TSTGRP 
OCONT 
EeM 

M 

OM 


LINENO 
OGRP 

FINCLN 
ERRCR2 


H»PROCESS 


PUSHy 


HeNAGSW 


PAGE 


sRESTORFE 
‘CHECK EOT 


tDONE 


sPOINT TO LINENO 
sCHECK FOR GROUP 


$00 ALL 


‘NOT IN GROUP 
iGET NEXT LINENO 


SCONTINUE SUBROUTINE 
sF INO THE LINE 

3NO SUCH It INE 
sEXECUTE TT 


-§RESTORE CHAR 


sRESTORF TEXT POINTERS 
sRESTORE PC 


;CONTINUE PROCESSING 


AND TRANSFER 


BeGLIST 


SORTC 


tREAD LINF @ 
sLOCATE IT. 
NOT THERE 
FSET PC 


;TEST ENO OF LINE 


sFIRST CHAR READY = USE PROC 


,EXIT PROCESS 
;IGNORE SPACE AND 3 


,18 


©1976 Processor‘Technology-Corporation 
PRINTED IN U.S.A. 


ganed xASM 


STwNT . 


9¢1 
9¢2 
963 
9c 4 
9¢5 
9¢6 
9¢7 
9¢8 
g¢g9 
19¢0 
1001 
10¢2 
19¢3 
100% 
19¢5 
1966 
1907 
1908 
19¢9 
1970 
1911 
1912 
1943 
1974 
1915 
1946 
1997 
1978 
1019 
7920 
1921 
1n22 
1023 
1924 
1925 
1926 
9997 
1n28 
ineg 
1970 
inal 
{Az2 
19233 
1Nz4 
1925 
1M%26 
1627 
19328 
1690%9 
1146 
1Mqd 
1942 
ifas 
TAgy 
945 


A FOCAL INTERPRETER FOR THE 8080 


Loc OBJECT CODE SOURCE STATEMENT - 
G5C6 C3 BY O05 JM P PROCESS 
o5cS 5A 85 14 LOA CHAR 
05CC FS PUSH PSW 
osco CD 8d 00 P4&° CALL GETC 
0500 01 iF 15 LXI BeGLIST 
07 D3 CD FE OG CALL SORTC 
05D6 C3 oc 905 JMP PC3 
0509 C3 cd O05 JMP P4 
PC33 : 
IF INTEL 
CALL 3812H 
ANA A 
JP PC3A 
CALL X133 
CFl 03H 
Ce RECOVER 
ENOF 
It XXX 
IN KYBRO 
ANT O7FH 
CPI 03H 
Cz RECOVER 
ENOF 
IF PROCT 
QO5DC CO 2E O8&. CALL STAT 
OSDF A7 ANA A 
OSE0 F2 EB 05 JP PC3A 
0563 CD 36 Q4 CALL XI33 
O5E6 FE 03 crl O3h 
O5EF8 CC E3 93 C2 RECOVER 
ENOF 
 O5€8 Fl PCSAS PUP PSW 
GScc 01 pE 14 Lx BeCOMLST 
OSEF 2i f€EFE 14% Lx] H+» COMGO 
O5F 2 CD £3 O90 CALL SORTJ 
OSF5 CD oC Q3 CALL ERROR} 
: OUTPUT COMMAND TEXT 
OSF8 SE O01 WRITES MV] Aevl 
O5FA 32 77 14 STA DEBGSW 
OSFD CD ii 02 CALL GET!LN 
0600 CD SE OQ1 Ww5$ CALL FINOLN 
0603 | C3 4A OQO6 JMP WTESTG 
0606 2A 86 14 ~ LHLO LINENO 
0609 7TC MOy AcH © 
0608 CA 11 406 JZ W3 
O60E CD 64 O01 CALL PRNTLN 
0611 CD sD 900 W338 CALL GETC 
0614 ST Sb3 A 
0615 CO 1B O11 CALL PRNTC 
0618 3A 85 14% LOA CHAR 
0618 FE od Cr] -CR 
0610 C2 11 06 JN w3 
$620 2A 73 14% “LHLO THISLN 


PAGF 


t~SAVE COMMAND CHARACTER 


:GO TO PERMINATOR 


SCHECK FOR C.C. BREAK 
sCNO CHAR AVAIL 

3GET CHAR 

2Ci.C. 

;BREAK 

Cece BREAK CHECK 


tC oCe 
7BREAK 


700 COMMAND 


sILLEGAL COMMAND 


sDISABLE TRACE 

{GET LINENO 

+SEARCH FOR LINE 
tNOT THERE OR GROUP 


‘PRINT LINE # AND Q SP 


sPRINT LINE TEXT 


:TEST END OF LINF 


PRINTED IN U.S.A. 
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aned XASM 
STWNT 


19u6 
1947 
90948 
1049 
1920 
11e1 
1nee 
19*3 
1oe4 
1085 
TAeE 
 ye7 
16¢8 
1089 
10¢€90 
TEL 
in¢€2 
ines 
19¢€9 
°909¢E5 
1N9€&6 
ine7 
19¢8 
1neE9 
1970 
1991 
1972 
1073 
4994 
1075 
1976 
1077 
1078 
1079 
19280 
10el 
inee 
Nes 
1Ne& 
—6108 
186 
1027 
“79288 
1089 
4060 
19¢1 
10¢2 
19¢3 


A FOCAL INTERPRETER FOR THE 8080 


PAGE 


7TEST END OF TEXT 
sEXITe OO NEXT 777997 LINE 


sPOINT TO LINENO OF NEXT 


sTRY NEXT LINENO FOR GROUP 


:SET LINENO 


sINIT GROUP PRINTOUT 


‘PRINT CR 


tIGNORE VRLANKS 
TEVALUATE INSIDES 


tTAKE INTFGER 

1USE IF Tn RARANCH 
SIGNORE SPACES ANO TEST 
iT 

Ne DUMP THE (EFOPE 


{FeeSKIP 


©1976 ProcessorTechnology-Corporation 


LOC OBJECT CODE SOURCE STATEMENT 
C623 7E MOV hem 
0624 SF MGV EeA 
0625 23 INX - b 
0626 56 MOV OM 
0627 B6 ORA AY 
0628 © EB XCHG 
0629 CA §2 Q6 WTST2$ Jd W6 
062C 23 INA H 
062°) 23 INX HI 
O62E 3A 84 14% LOA NAGSW 
0631 A7 ANA fh | 
0632 FA 38 0Q6 JM iy) 
0635 23 INX HH 
0636 TE MGV AeM 
0637 2B DCX HH 
0638 CD E7 Oe2 W4s CALL TSTGRP 
0638 © C3 56 0O6 WMP yi X 
O463E EB WALL ° XCHG 
O63F 1A LOAXx a) 
06490 6F MOV LA 
0641 13 INX 0 
0642 1A LOUAX 8) 
0643 67 MGY HeA 
0644 22 86 1% SHLO LINENO 
0647 C3 00 Q6 | JMP w5 
O64A 2A 73 14 WTESTG? LHLO THISLN 
064D 7C MCV AeH 
O64E BS ORA 
O64F C3 29 Q6 UMP wTSTo 
0652 32 77 14 W68 STA cCEBGSW 
0655 c9 RET 
0656 3A B84 «14— WX 8s LOA NAGSW 
0659 AT ANA A 
065A FA S52 06 WJM WG 
065D CA 52 06 JZ ¥l6 
0660 97 SuB Lh 
0661 CD 1B O1 CALL PRNTC 
0664 C3 3E 06 JhiP WALL 

: COMPUTED TRANSFER 
0667 CD O05 02 JUMP § CALL SPNOR 
O66A CD Be 09 CALL EVAL 
0660 1E 20 MVil E32 
O66F CD BE ile CALL FIX 
0672 7A MOV AeD 
0673 C3 33 06 JMP rs 

$ CONDITIONAL TRANSFER PROCESS 
0676 CD Fu& D2 IFs CALL TESTC 
0679 CD B2 Q9 CALL EVAL 
O67¢ 00 NOP 
0670 1—E 00 MV 1 £0 
O67F 03 O00 90 LXI BO 
0682 CO Di OF CALL VST 
0685 | SE 600 MV1 hed 


PRINTED IN U.S.A. 


RNPO XASM 
STUNT 


147i 
1102 
473 
11°4 
ee Bees, 
11fr6é 
1197 
11°8 
11¢9 
1110 
1141 
1112 
1113 
7114 
1115 
1116 
1117 
11718 
T1993 
1720 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1170 
1921 
1122 
7423 
4424 
1725 
1226 
1437 
1128 
1129 
1440 
1liul 
liue2 
$443 
1744 
1165. 
17146 
14ua7 
1148 
11u9 
4150 
F1ei 
11&2 
TTES 
TVE4 
11&5 


A FOCAL INTERPRETER FOR THE 8080 PAGE 21 
LOC OBJECT CODE SOURCE STATEMENT 
0687 CA 92 06 Jz 12 
068A ; F2 91 O06 Jk IP 
0680 2A FE 14 IF33 LiLo COMGO+8 : TRANSFER 
0690 ES PCHL 
0691 fol @ IPs INR A 
0692 3C IZ: Ith A 
0693 32 7A 15 | eo STA TEMP 
0696 97 SUS A | 
0697 01 20 15 Lx 3eTLIST 
069A 21 608 14 Lxl  HeILISt 
069D cD €3 00 CALL SCRTJ sSEARCH FOR -¢3CR 
06A0 CO ad 900 CALL GETC 
O6A3 C3 96 06 JMP 1243 
O6A6 - CD gD 900 IFis: CALL GETC 
O6A9 34 7A 15 LLA TEMP 
O6AC 30 DUR A 
06AD C2 93 Q6 JING 13 
606B0 C3 ed O06 JMP IF3 
: LOOP CONTKOL ANN ASSIGNMENT 
; FOR AND SET 
: SET IS FORK wITH NO LOOP CONTROL 
SETS: 
0683 21 861 O08 FOR: Lxl H+GETVAR “3LOOPSe ETC 
0686 CD 66 00 CALL PUSHJ sLOOK FOR "=" NEXT 
0689 E5 PUSH HH 
O6BA CD 05 O02 CALL SPNOR , IGNORE SPACES 
06BD 3A 85 14 LLA CHAR 
06C0 FE 30 Cl ex! 
06C2 C4Y pc 93 CNZ ERRORY ,;LEFT OF = RANe FOR OR SET 
06Cc5 CD 8D 0900 CALL GETC : 
06C8 CO B2 09 CAuL EVAL 
06CB El PUP | 
O6CC 22 78 14 SHLLU PTL 
C6CF CO D1 OF CALL TST 
0602 2A 78 14 LiLo PTL 
0605 CD B& OF CALL STR 
0608 97 Sba3 A 
0609 01 20 15 LX1 BeTLIST 
06DC 21 pe 14 Lx1 HeFLST2 
O60F CD £3 OO CALL SORT $TEST LAST CHAR FROM EVAL 
06E2 CO OC -03 * CALL FRRORY tEXCESS R-PAR 
0O6E5 2h 78 14 FINCRS LiLo PTi 7SAVE VARTSLE ADORESS 
O6E8 £5 PUSH H . 
QO6E9 21 AF Q9 Lx1 HeEVAL #3 sEVALUATE INCREMENT IF ANY 
Q6EC CD 66 900 CALL PUSHY . 
O6EF a7 Sb3 A 
C6FO 01 20 15 Lx1 BeTLIST 
O6F3 2i cc 14% Lxl HeFLST2 
O6F6 CO £3 00 CALL SORTJ tTEST TERMINATORS 
O6F9 CD pce 03 CALL FRRORY tILLEGAL TERMINATOR IN FOR 
O6FC CO Mi OF FLIMITs CALL TST ; 
O6FF 21 4E 15 Lx. HeFLARG . a . 
0702 CO Bé OF CALL STR Techno! Cor ration 
0705 21 4E 15 Lx A cECARE ©1976 ProcessorTe ogy-Corpo 


PRINTED IN U.S.A. 


ened XASM 


STwWNT 


1186 
117 
11£8 
1189 
11€9 
11¢1 
11€2 
11€3 
1TE4 
11€5 
141€6 
11€7 
116€8 
11€9 
1170 
1171 
172 
1473 
44974 
1175 
1176 
1177 
1178 
3179 
17120 
i7e1 
1122 
1483 
11284 
1185 
1186 
11°27 
1168 
L1E9 
11¢0 
11¢2 
11¢2 
11¢3 > 
11¢4 
11¢5 
11¢6 
1167 
11¢8 
11¢9 . 
1200 
1etl 
122 
12¢3 
1204 
12°75 
12t6 
12¢7 
12¢8 
12°39 
1210 


LOC 


0708 
07908 
O70E 
0711 
0714 
0717 
O71A 
0710 
0720 
0723 
0726 
0729 
072C 
O72F 
0732 
0735 
0738 
0736 
O73E 
O73F 
0742 
0745 
0748 
O74B 
O74E 
0751 
0754 
0757 
O75A 


07586 | 


O75E 
0761 
0762 


0765. 


0768 
O76B 
076C 
O76F 
0772 
0775 
C776 
0779 
O77A 
0770 
0780 
0783 
0786 
0789 
07aC 
O78F 
0792 


0795 
0796 


OBJECT CODE 


71 
AF 


f 


A FOCAL INTERPRETER FOR THE 8080 


“SOURCE STATEMENT 


FCONT: 


OLOTSTS 


° 


FORMR: 


FINFINS 


CALL 
LX 
CALL 
CALL 
Lx» 
CALL 
Lx 
CALL 
Lxl 
CALL 
Lxl 
CALL 
Lxl 


CALL 


Lx] 
CALL 
LXx1I 
CALL 
PCP 
ShLU 
CALL 
LXI 
CALL 
Ltr 
CALL 
Lxl 


CALL 


CALL 
PUSH 
LhiLu 
CALL 
PUP 
LXl 
JP 
CALL 
RM 
JV P 
CALL 
U2 
RP 
LHLO 
PLUSH 
Lxl 


CALL 


JMP 
LX1 
CALL 
CALL 
LX] 
CALL 
JMP 


PUSHE 


Heb VAL @=3 


PUSH 
TST 

Hie FLARG 
STR 
H+eFLARG 
PUSHF 
Hie TEXTP 
PUSHF 


H+ PROCESS 


PUSHJ 
He TEXTP 
POPF 
HrFLARG 
PCPF 
HeITFER1I 
PCPF 

a 

PT1 

61 8) 

He ITER1I 
AD 

PTi 

STR 
HeITER1I 
Lcd 

TST 

PSW 

OTL 

LCcOd 

pSw 
HeFLARG 
CLOTST 
SE 


cCORMR 
SE 
FORMR 


PT1 

H 
HelTERI 
PUSHF 
FCONY 


HeFLTONE 


PUSHF 
TST 
HeFLARG 
STR 
FCONT 


t INPUT*#OUTPUT STATEMENTS 


ASKS 


Stu3 
CMA 


A 


PAGE : 


;GET LIMIT (NO ERROR DETECTE 


sSAVE LIMIT 


SSAVE TEXT OF ORVJECT STMTS 
300 OBUFCT 

SRESTORE REMAINING TEXT 
;GET LIMIT 

3GET INC 


3;GET VARIRLF AODNRESS 


sSAVE ANDRESS 


$SAVE INC AGAIN 


sSET INC TO ONE 


SREMEMBER WHICH CALL ©1976 ProcessorTechnology-Corporation 


PRINTED IN U.S.A. 


aned XASM A FOCAL INTERPRETER FOR THE 8080 | | PAGE 23 


STNNT LOC OBJECT CODE SOURCE STATEMENT 

1211 0797 32 7E 14 TYPES STA ATSW 

1212 QO79A 97 TASK: SbB3 A 

1213 0798 32 77 14% STA DEBGSW SREeENARLF TRACE 
1244 QO79E G1 1A 15 Lx BeALIST tSPECIAt CHAR? 
1215 O7A1 21 28 i5 Lxi HeATLIST 

1216 O7A4 CO £€3 OU CALL SORTJ 

1217 O7A7 3A: 7E 14 LLA ATSW 

1218 C7TAA SC INR A :TEST QUOTE SWITCH 
1°19 O7AB C2 FO O7 JN? TYPES sTYPE 

1220 O7AE 21 Bp1 08 Lxl beGETVAR 

1221 07B1 CO 66 90 ~ CALL PUSHJ :00 ASK-SFT UP PT 
1222 07B4 3A 85 14 LULA CHAR TSAVE INet INE CHAR 
1223 O7B7 . F5 PLUSH PSw 

1224 0788 —5 PLUSm Hi 

1225 07B9 3E . 3A MVI Ari* 3? ;TYPE COLON 

1226 07BB CD 1B O11 CALL PRANTC 

1227 O7BE 21 AB 15 LXxl Ht) IOBUF 

1228 07C1 z2 60 14 Sho AXIN 

1229 O7C4% CD 51 #201 AK2$ CALL READC 

12720 07C7 CO BD OO CALL PACKC 

12271 . O7CA 97 SL3 A 

1222 O7CB 01 71 15 Lxl Br SPECIAL 

1223 O7CE 21 56 15 Lxl HeINFIX 

1224 07D: CO £3 00 CALL SORTS 

yoarzs 0704 C3 c4 O07 JhP AKe 

1226 6707 CD BO 60 AK3: CALL PACKC 

1227 O7DA. 2A 66F 14 LtiLoOQ AXOUT 

1228 0700 E5 PUSH H 

1229 O7DE 21 AB 15 ° Lx] He LOBUF 

12490 O7EL 22 6F 14 | Shiu AXOUT 

7244 O7E4 CD AF 909 CALL FVAL=3 

1242 C7E7 | ae ae POP A 

1243 °- O7E8 22 6F 14 Sto AXOUT 

13944 O7EB CD p11 OF CALL TST 

1245 O7EE Ed POP H 

1246 O7EF CD B86 OF ; CALL STR 

12947 O7F2 Fi AKS$ PUP FSW 

1248 © O7F3 32 85 14 STA CHAR , 

1249 O7FS C3 95 07 UMP ASK sCONTINUE 

12¢0 O7F9 Ei AKYS POP HH 

ro O7FA C3 F2 O07 JMP AKS 

ipece O7FD 21 B2 Q9 TYPE2?S Lxl- HeEVAL 300 TYPE 

qor3 0800 CD 66 00 CALL PUSH 

1ae4% 0803 ei AB 15 Lxl He TOBUF 

13*e5 0806 CD 84 13 CALL CU 

7286 0809 el AaB 15 LX tie IORUF 

12e7 o380c 06 OD MV1 e013 

1288 O80E 7E TYP! MU hae 

qorg O80F cé& 30 AUl é00 

12¢€0 0811 CD 1B 91 CALL PRATC 

12E1 0814 05 | OCR £3 

12€2 0815 23 INX | 

q 3 0816 C2 OE O86 Jhe TYP ; 
; - 4 08 : 9 C3 97 «07 UMP TYPE ©1916 ProcessorTechnology-Corporation 


12€5 081C Z—E O01 TQUOT?: MV I Ael SDISABLF TRACE PRINTED IN U.S.A. 


A FOCAL INTERPRETER FOR THE 8080 


paned0 XASM PAGE 2 ts 
STUNT EOC OBYECT CODE SOURCE STATEMENT 

1266 O81£ 32 77 14 STA CEBGSW 

19€7 0821 — cD 8D 00 TQ2: CALL GETC sTYOE LITFRALS 

12€8 0824 | 97 SLB A 

12¢€9 0825 61 7E 15 LxL BeTLST2 

12970 0828 21 52 15 Lx1 He TLST3 

1971 -. 0828 CD £3 OO CALL SORTJ 

1272 — O82E 97 : . SLB A 

1273. O82F.. cO 1B 01. CALL PRNTC 

1274 0832 C3 21 08 | JMP TQ2 | 

1275 0835 CD ad 00 TINTRS CALL GETC — tPASS *%& 

12976 0838 CD 11 02 CALL GETLN sREAD FORMAT CONTROL 
1277 0838 2A 86. 14 LHL LINEND . 

1278 083E 22 70 15 SHU. FISW 3SAVE FORMAT CODE 
1279) 0841 C3 9A O7 | UMP TASK 

1280 0844 3E 00 | | TCRL2?: MV1 AeCR ;SPLAR=SCR ALONE 

1781 OB846 . cO 1B O01 CALL PRNTC 

12R2 0849 3—E 600 TCRLF3 MV ActR ?) IS ROTH 

19A3 C845 — CD 45 O01. CALL YOUTL , 
124 O84E cD 8D 00 TASK4S CALL GETC sMOVE TO NEXT CHARACTER 
12F5 0851 C3 9A 07 JUMP TASK 

JOaG . 

12°7 : SEARCH ROLTAINES 

12e8 0854 cO 11 02 MODIFY: CALL GETLN ;READ LINFNO 

7229 0857 CD 9OE€ 01 CALL FINOLN ;LOOP IT uP 

{5¢0 085A CD pe 03. CALL ERROR? ~— SNONReEXISTENCE 

12¢1 0850 CO 64 O1 CAuc PRNTLN 

12¢2 0860. - 24 ge2 14 Lhlu BUTR sSET POINTERS 

12¢3 0863. 23 INX ve 

12¢4 0864 23 INX by 

19¢5 0865 11 86 14 Lx] DeLINENQ ¢&COPY SAMF LINE # 
12¢6 0868 ~ 1A LCAX es 

12¢7 0869 . 77 MOV wel 

12¢8 086A 13 INX 9 

12¢9 086B 23 INA H 

130 086C 1A LOAx 0 

131 0860 77 MOV mel 

1302 O86E 23 INX | H ne 

1303 OB86F 22 6D i114 SHLG AXIN sFOR INPUT 

13¢4 0872 CD 36 O44. SCONT? CALL x33 sREADe NO FCHO 

1205 0875 32 8E— 14 ° STA LIST34+1 sSAVE SFARCH CHAR 
1306 0878 3E 01-7 MV Aci 

13¢7 OB7A 32 77 14 STA. DEBGSW 3NO BREAKS 

13¢8 087D cD sD 900 SCHAR S$ CALL GETC ;TYPE + TEST «F.F. 
13f9 0880 97 SUB A 

1310 osgl cO 186 o1 CALL . PRNTC 7 TYPE 

1341 0884 97 SLB A 

1342 0885 02 ad 14 LxXl BeLISTS 

1343 0888 21 16 15 Lxl H+ LISTGO 

1344 088B CO €3 OO CALL SORTU 3;LOOK FOR MATCH 

1345 O88E cO pd 00 CALE PACKC 2SAVE BFW LINE 

1316 C891 C3 70 08 JMP SCHAR 

1317 0894 2A 82 14 SBAR: LHLO BUFR SRESTART RUFFER ADDRESS 
1318 0897 23 INX H 

1 rs 3 0898 23 : INX H ©1976 Processor-Technology-Corporation 
1320 08399 23 INX H PRINTED IN U.S.A. 3 


RNFO0 XASm 


STYNT 


1321 
1322 
(4323 
1304 
1425 
1326 
1327 
1328 
1329 
1370 
1371 
1372. 
1423 
1324 
1425 
14326 
1327 
13287 
1329 
1340 
1341 
1342. 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
735£0 
TZEL 
13&2 
T3ZES 
1T3ZE4 
1325 
13%6 
1357 
13*8 
1329 
13%¢€0 
iz¢el 
13¢2 
1%¢63 
13¢4 
13¢€5 
13¢6 
13¢7 
13¢8 
134¢9 
1370 
13471 
1372 
4373 
T=74 
1275 


A FOCAL INTERPRETER FoR THE 8080 . PAGF 25 
LOC OBJECT CODE SOURCE STATEMENT 
089A 23 : ItaX H 
03898 22 6D 14 Shou AXIN ;SET POINTERS 
089E cO 51 01 SFOUND: CALL READC SREAD KFYROARN 
O8A1 97 SUB. n 
O8A2 01 88 14 Lxl B»LIST6 
08A5 21 oc 15 Lx4 He SRNLST 
08A8 CD £3 00 CALL SORTJ | 
O8AB CD. RO 06 SGOT: CAL PACKC :PACK CHAR 
OSAE C3 9E 08 UMP SFOUND ;MORE 


iGET A VARIABLE FROM VARIABLE LIST 
VEXIT= H & L POINT TO VALUE PART OF VARTARLFE 
;sPUSHES AXOUT PAST VARNAME 


O8B1 - CD 05 02 GETVARS CALL SPNOR IGNORE BI ANKS 

0aB4 3A 85 14 LULA CHAR GET FIRST CHAR OF NAME 
0887 47 MOV Bel sSAVE 

08R8 C5 PUSH B 

038B9 CD sD 00 CALL GETC :GET SCND CHAR OF NAME 
O8BC C1 | PUP B 3 
08BD ‘CD F4& 02 CALL TESTC 

08C0 c3 pl 08 uhP NOTA 

08C3 00 NUP 

08c4 00 NUP 

08CS 00 NUP 

08C6 00 NUP 

08C7 00 NUP 

08C8 00 NUP 

08c9 3A 85 14 LULA CHAR | 

08cc GF MOV CeA 7 ALPHA==-SAVE 

08CD C5 PUSH B 

O8CE C3 D7 OB UMP GV2 

0801 o£ 4O NOTAS MVd Cera sSURSTITUF FOR 2NO CHAR IF MISSING 
08D3 C5 PUSH B 

08D4 C3 pA 08 UMP GV2B 

0807 cD 8D oOo GV2: CALL GETC 

O8DA CD Fu 02 GV2Bt CALL TESTC 

0800 C3 £9 08 UMP GV2A T 

O8E0 C3 p7 08 JUMP Gve yN 

0863 C3 D7 08 uMP GV2 IF 

O8E6 C3 07 08 UMP GV2 

0859 cD 03 062 GV2A3 Chit TSTLPR 

O8EC C3 32 09 UMP NOSUB: 

OSEF CD ad 09 CALL ECALL 

o8F2 21 35 00 Lx He ACCE+SCKB 

08F5 (CO 71 060 CALL PUSHF. 

O8F8 2h 78 14 Lhiuu PT1 

O8FB CD E€6 OF CALL LOD 

O8FE 1—E 20 MV 1 £032. 

0300 cD BE 12 CALL FIX CONVERT TO FIXED 

0903 5A MGV FD tSAV SUBSCRIPT 

0904 51 MUY Del LEAST SIGNIFICANT PORTION 
0905 EB | XCHG | | 

0906 22 7A 15 SHLU TEMP | | 
6909 21 35 00 Lx He ACCE+SCKB ©1976 Processor-Technology-Corporation 
090C CD 7F 00 CALL POPF 


PRINTED IN U.S.A. 


enedg XASM 


STANT 


1376 
1377 
1378 
1379 
1350 
13A1 
1382 
1383 
13e4 
1385 
1326 
1387 
1388 
13893 
14¢0 
13¢1— 
13¢2 
13¢3 
13¢4 
13¢5 


136 . 


13¢7 
13¢8 
12¢9 
14r0- 
Tatil 
142 
14ufn3 
144 
14ur5 
14¢(6 
1407 
14¢8 
1409 
1410 
1411 
1412 
1443 
(24494 
1415 
1476 
1417 
1418 
14793 
1420 
i421 
1422 
1423 
1424 
1495 
1426 
1427 
7428 
1429 
1420 


A FOCAL INTERPRETER FOR THE 8080 
Loc OBJECT CODE 
OS0F 2A TA 15 
0912 ES 
0915 2A 6F 14 
0916 2B ; 
0917 7E Gv5: 
0918 FE 29 
O91A C4 oC 03 
0910 CD 8D 00 
0920 CO F4 Oe GV6A$ 
0923 C3 36 O09 
0926 C3 ec 09 
0929 C3 2C 09 
092C cD 8D 00 GV6e: 
092F C3 20 Q9 
0932 1i1 00 900 NOSUB3 
0935 O05 
0936 ~ 01 
0937 C1 
0938 — eA 82 14 FNOVR?: 
0938 3A 7A 14 GV3! 
093E BD 
O93F CA 65 Q9 
0942 TE GV4: 
0943 B8 
0944 23 
0945 C2 5B 09 
0948 7E 
0949 B9 
OS4A 23 
OS4B C2 5§C 09 
O94E 7E 
O94F . BA 
0950 23 
0951 c2 5D 09 
0954 TE 
0355 BB 
0956 23 
0357 C8 
0958 C3 SE 09 
0358 - 23 NOPE1: 
095c¢ 23 -NOPE23 
0950 23 NOPE3: 
O95E 23 NOPE: 
O95F 23 
0960 23 
0961 23 
0962 C3 3B 09 
0965 3A 7B 14 HC: 
0968 BC 
0969 C2 42 09 
096C 70 
0960 23 
096E 71 
096F 23 
0970 | 42 


SOURCE STATEMENT 


LHLO 
PUSH 
LHLO 
DCX 
MOV 
Chl 
CNZ 


CALL 


CALL 
JMP 
JMP 
JUMP 
JMP 
LAl 
PUSH 
PUP 
POP 
Lhinu 
LLA 
CMP 
Jd 
MOy 
CMP 
INX 
JUNC 
MOV 
Ci.P 
INX 
JNZ 
MOY 
CMP 
INX 


INS 
MCV 


CMP 
INX 
R2Z 

JhP 
INX 
INX 
INX 
INX 
INA 
LNX 
INX 
JMP 
LOLA 
CMP 
JNh2 
MOV 
INX 
MOV 
INA 
MOV 


TEMP 

b 
AXQUT 
hy 

AeM 

i 
ERRORG 
GETC 
TESTC 
FNOVRe2 
GVé 
GV6& 
GETC 
GVEA 
0-0 


GV3 
LASTV41 
H 

G zi 4 

Meb 

HY 

Mel 


ms 


MeO 


PAGE 


sPOINT POINTER PAST VARNAME 


tN 
$F 
iV 


NO SUBSCRIPT MEANS MAKE IT ZERO 


;OCHECK VARIABLE LIST 
SFIRST HALF OF 
sEND_OF VARS CHECK 


CHECK VARNAME 
sCHECK VARNAMF OND CHAR 
:;CHECK SURSCRIPT 


;CHECK 2NN HALF OF SUBSCRIPT 


sRETURN TIF FOUND 


‘TRY NEXT VARIABLE 
sCHECK 2NM HALF END OF VARS 


tNOT ENN OF VARS 
sNOT CREATEN YET 


©1976 Processor-Technology-Corporation 


PRINTED IN U.S.A. 


eq 


ened XASM 
STUNT 


T4214 
$422 
1433 
TH24y 
1425 
1426 
1427 
1428 
7429 
1440 
1443 
1442 
1443 — 
1444 
1445 
74406 
1447 
14uU8B 
1449 
14£0 
1462) 
ufo 
7uSs 
14E4 
14&5 
1HE6 
Lut? 
14E8 
14&9 
148€0 
THE1 
Tut] 
14€3 
TQE4 
1465 
1T4EE 
Tuc7 
14E8 
14€9 
1470 
1471 
1472 
1473 
1474 
1475 
Ta7é 
1477 
1478 
14979 
1420 
T4uAl 
Pune 
14283 
TUF 
1485 


A FOCAL INTERPRETER FOR THE 8080 


Loc 


0971 
0972 
0973 
0974 
0375 
0976 
0977 
0978 
0979 
O97A 
0378 
O9S7E 
O97F 


0980 
03&3 
0986 
0989 
O98A 
098D 
098E 
0991 
0994 
0995 
0998 
0999 
099C 
O99F 
0SA2 
O9AS 
O9A8 
O9AB 
O9AEL 
OSAF 
09B2 
0983 


O9B6 


0989 
0988 
09BE 
09C0 
09C3 
09C6 
09c9 
O9CC 
OCF 
09D2 
0305 
0908 
09DB 
09DE 
0964 
Q9EF4 
03C7 
OSEA 


OBJECT CODE 


23 

73 

23 

ES 

97 

77 

23 

23 

23 

23 

22 7A 14 
El 

c9 

21 35 00 
CD 71 00 
SA 7D i4 
FS 

3A 81 14 
ae 

21 AF 09 
CD 66 00 
Fil 

32 81 14 
Fi 

32 7D 14 
CD Oi OF 
ei 6C 15 
22 78 14 
CO B6 OF 
21 35 O6 
CD 7F 00 
c9 

CD 80D 00 
at 

32 81 14 
3A 85 14 
FE 2B 

CA o4% OA 
FE .2D 

CA 904% OA 
CD FY O02 
C3 €D 0Q9 
C3 Oo4 OA 
C3 53 OA 
CO Bi 08 
22 78 14% 
C3 98 OA 
3A 7C 14 
32 7D 14% 
CO F4 Oe 
C3 FS 09 
CD pc Q3 
CO oC 903 
CO oc 03 


SOURCE STATEMENT 


ECALLS? 


EVAL? 


EVALCS 


VARGET: 


OPNEXTS 


INX 
MUV 
Ifvx 
PUSH 
SU3 . 
MCV 
Iivx 
INX 
INx 
INX 
Shtuu 
PUP 
RET 


L>1 
CALL 
LOA 
PUSH 
LUA 
PUSH 
Lx1 
CALL 
POP 


H SNOW CREATEN 


PAGE 27 


bl sSAVE POINTFR TO VALUE 


LASTV MANE VARTARLF<SAVF NEW END OF LIST 


tRETURN POINTFR TO VALUE 


He ACCE+SCRB 
PUSHF 
LASTOP 

PSh 

STE: 

PSw 
HeEVALH=3 
PUSHY 

PSW 

STE 

PSwW 

LASTOP 

TST 

HeFLAC 

PTS 

STR 

the ACCE+SCRB 
POPF 


GETC 

A 

STC 
CHAR i 
47 :TEST FOR UNARY + 

ENUM 

te? {TEST FOR UNARY - 

ENUM 

TESTC 

ETRM1° iT 

ENUM :N 

E FIN iF 

GETVAR :VAR 

PTA 

EDO 

SRTCN 

LASTOP 
. este 

ET RMN 

ERRORY : 

ERRORG ©1976 Processor-Technology-Corporation 
ERRORY ;VAR 


PRINTED IN U.S.A. 


enedg XASM 
STWNT 


PURE 
1487 
1488 
1489 
14¢0 
-14¢] 
14u¢2 
14¢3 
14¢4 
14¢5 
14ac6 
14¢7 
14¢8 
14¢9 
1900 
1=C1 
18°2 
9503 
T*=C4& 
18¢°5 
TECE- 
15°7 
18C(8 
1e&C9 
1530. 
15431 
15492 
1543 
1544 
2575 
1°46 
1517 
1518 
1519 
1520 
1521 
e522 
1523 
1524 
1425 
1826 
15o7 
1528 
1529 
4520 
9521 
1872 
4823 
1524 
1525 
1526 
1577 
1578 
1529 
1540 


A FOCAL INTERPRETER FOR THE 8080 


Loc OBJECT CODE 
QSED 2A 7C 14 ETRM1$ 
O9F 0 FE 06 
09F2 CA D9 OA 
OSF5 CD 03. 02 ETRMNS 
O9F 8 C3 FE 0Q9 
O9F8 CD ne O03 
O9OFE CD ad 00 ETR23 
OA0l C3 ¢c3 Q9 
CA0Y 21 82 15 ENUM S$ 
CA07 E5 
0A08 01 30 15 ENLP ® 
QAOB CO FE 00 
OAOE C3 ?F OA 
OALI El ENL3S$ 
OAL2 3A 85 14 
0A15 D6 30 
OA17 77 
0A18 23 
OA1L9 FE 15 
0A1B C2 28 OA 
OALE E5 
CALIF cD sD 00 
0A22 cD O05 02 
OA25 C3 11 OA 
0n28 E5 ENL2:s 
0n29 cD 8D 00 
QA2C €3 08 OA 
OA2F 7 El NUMD =: 
0A30 36 FF 
0A3e CO o1 OF 
0A35 21 4E 15 
0A368 CD B6 OF 
Oa3zB 21 82 15 
OAZE CD C2 i12 
OA41 21 6C€ 15 
OA44s 22 78 14 
OnA47 CD Bp6 OF 
OAGA 21 4E€ 15 
OA4D CD £6 OF 
0A50 C3 98 OA 
0A53 21 35 00 EFUN 
OA56 Cd 71 #200 
OA53 COD ged 00 
OASC CD 8gD 00 
OASF 3A 85 14 
OAbe) F5 
OA63 CD 8aDd O00 FUN3: 
OA66 CD FH O02 
GAGS C3 75 OA 
CA6C C3 63 OA 
OASF C3 63 OA 
OAT? C3 63 OA 
OA75 CD 03 Oe FUN2$ 
OA78 Co nce 03 
FUNG: 


SOURCE STATEMENT 


LLA 
Crd 
JZ 
CALL 
JMP 
CALL 
CALL 
JdhMP - 
LX 
PUSH 
Lx) 
CALL 
JMP 
POP 
LLA 
Su] 
MUy 
INX 
Crd 
JNZ 
PUSH 
CALL 
CALL 
JMP 
PLSH 
CALL 
JMP 
PCP 
MV I 
CALL 
Lal 
CALL 
LAl 
CALL 
Lx] 
StLO 
CALL 
Lx] 
CALL 
JMP 
Lx] 


CALL 


CALL 
CALL 
LOA 
PUSH 
CALL 
CALL 
JMP 
uP 
uMP 
w MP 
CALL 
Cau 
CAuu 


SRTCN 
6 
ELPAR 
TSTLPR 
ETRe 
ERRORY 
GETC 


FVALC* 
HeOATBUF 


Het LARG 


STR 


He DATBUF 


THP 
Hef LAC 
pT1 
STR 


He LARG 
£09 


£09 


sNULL PARFENS 


CP MISSING 


He ACCE+SCRB 


_ PUSHF 


GETC 


GETC 


CHAR 


PSN 
— GETC 
TESTC 


FUN2 


SUNS 


FUNS 
FUNS 
TSTLPR 
ERRORG 

ECALL 


sSAVE ACCUM 
sGET FUNCTION CODE 


tSAVE FUNCTION CODE 
sMOVE TO EXPRESSION 


tT 

3 

tF 

+ VAR 

sMUST BE A ¢ 

3NOQ PAREN 

tEVALUATE FUNCTION INPUT 


PAGE 2% 


©1976 Processor-Technology-Corporation. 
PRINTED IN U.S.A. 


s0e0 XASM 
STANT 


1541 
1542 
1543 
1544 
1545 
1846 
1547 
1548 
1549 
15£0 
9561 
THES + 
15°3 
1584 
15®5 
15®6 
15&7 
15°8 
1559 
15€0 
1SE1 
15E2 © 
15€3 
15€4 
15€5 
15€6 
15€7 
15€8 
15€93 
15796 
1671 
1572 
1573 
1574 
1575 
1876 
1577 
1578 
1573 
18280 
1S5Ff1 
152 
1523 
1564 
75e°5 
1S5¢6 
1S¢7 
1828 
1589 
15¢0 
15¢1 
15¢2 
15¢3 
15¢4 
1§¢5 


A FOCAL INTERPRETER FOR THE 8080 


Loc 


DATE 
OA7TF 
QA82 
0A83 
OA86 
0A89 
GAEC 
OA8F 
OA92 
OA9I5 


0Ag98 
0ASB 
OASC 
OASE 
OAAL 
OAAY 
OAAT 
OAAA 
OAAD 
OABO 
0AB3 
OABS 
OARS 
OABE 
OAB9 
OABC 
OABD 
OABE 
OABF 
OACO 
OAC 
CACE 
OAC9 
OACC 
OACD 
OADO 
OAD3 
CADS 
OADB 


~QADI 


OADC 
OADD 
CAEO 
OAEL 
OAEY 
QAES 
OAE8 
OAES 
OAEC 
OACF 
OAF2 
OAFS 
OAF 8 
OAFB 


OBJECT CODE 


OA 


SOURCE STATEMENT 


EFUNS$ 


ETERMS 
EDO: 


EFST: 


ELPs 


EFNDS: 


FLOPS 


ELPARS 


ELPR2$ 


PUP 
Lxl 
PUSH 
Lxl 
Lxl 
CALL 
CALL 
Lxl 
CALL 
JUMP 


LLA 
ANA 
MVI 
STA 
JING 
Lxl 
SHiLO 
JUMP 


PSk 
HeEFUNS 
H 
BeFNTBEL 
HeFNTBF 
SORTJ 
ERRORG 


PAGF 29 


RESTORE FUNCTION CODE 
:GET RETURN. ADORESS 
tSAVE ON STACK 

:GET FUNCTION CODES 
ADDRESS oF FUNCTIONS 
:GOTO FUNCTION 

:BAD FUNCTION CODE 


He ACCE+SCRB 


POPF 
ELPR2 


STE 

A 

Ael 
STE 

EF ST 
HeoLdOO 
FLOP 41 
FLOPe3 
LASTOP 
HyaOPTBL 
A 

H 

H 

EFNO 
ELP 
EM 

H 

DeM 


FLOP 41 
PT1 

LOD 
OVER+SCRB 


A 
FRRORG 
SRTCN 
9 
OPNEXT 


LASTOP 
pSW 
STE 
PSh 
ECALL 
PSH 
STE 
PSw 
LASTOP 
GETC 


TESTC 


E TERM 
ETERM 
ETERM 
ETERM 


sKETURN FROM FUNCTIONSe RESTORE ACCUM 


OVERFLOW 


3SET SRTCN 


©1976 Processor‘Technology-Corporation 
PRINTED IN U.S.A. 


pened XASM A FOCAL INTERPRETER FOR THE 8080 . : PAGE 30 


STVNT LOC OBJECT CODE SOURCE STATEMENT 

18¢6 3 

15¢7 : ERASE SINGLE LINES» GROUPSe OR VARIRLES 

15¢8 OAFE 3— 601 ERASE$ MV 4 Ael {TURN OFF TRACE 

15S9 0800 32 77 14% STA DEBGSW 

1409 0B03 CD F4& O02 CALL TESTC sTEST SFCOND WORD IF ANY 

1601 O0B06 C3 60 O08 JP P ERVX FERASE VARIBLES 

1402 oB09 C3 2E OB UMP ERL sLINES OR GROUPS 

1603 oBoC CD pc O03 CALL ERRORS 

14¢C4 OB80F 3A 85 14 LUA CHAR sALL TEXT 

7405 0Bi2 FE 41 Chil ‘A? 

1ACE& OBiL4 C4 pc 03 CN2 ERRORZ 3BAD ARG TN ERASE 

1607 0B17 21 2A 16 ERTS Lx1 HeBUFBEG sERASE ALL TEXT 

1608 OB1A 22 82 14 SHLO BUFR 

1609 0810 21 25 16 LxI1 HeCFRS 

1610 0B20 36 00 MV M,O 

1611 OB22 23 INX tH 

1612 OoB23 326 00 MV I me 

16473 0825 2A 82 14 ERV3 LHL STRTV SERASE VARIRBLES 

1614 0828 22 7A 14 SHLO LASTV 

1615 0B2B C3 64% 04 UMP START sFIX POINTERS 

1616 OBeE co i1 02 ERLS CALL GETLN sERASE tINes 

1617 OB3i 2A 82 14 LHLO BUFR sPROTECT REST OF LINE 

1618 0834 22 6D 14 SHLO AXIN | 

1619 0837 CD 29 03 ERG: CALL ‘OELETE sEXTRACT A LINE 

1620 " OB3A 2A 73 14 LiLo THISLN 

1621 0B3D 23 INx ow 

1622 OB3E 23 INX H 

3623 OB3F 2e 73 14% SHLuU THISLN 

1624 0B42 3A 84 14 LCA NAGSW 

1625 0B45 A7 ANA t 

1626 O0B4E © FA 4B OB JM ER? 

1627 0849 23 - IWX H 

1628 OB4A TE MOV AaM 

16°29 O0B4B CL CD ET 2 ER? CALL TSTGRP sSKIP 

1620 OBGE €3 25 OB | JUMP ERV 

1621 0851 2A 73 14% Ltird THISLN 

1622 0854 11 86 i124 Lx] O+LINENO 

1623 | 0B57 7E MOY AcM 

1624 0R58 12 : : .  STAX D 

1625 0B59 23 Ix H 

1676 - QOBSA 13 ; INX 0 

16737 0B5B 7E MOV Aah 

1628 OBSC 12 STAX D 

1429, 0B5D _ €3 37 OB JUMP ERG 

16498 0B60 ~~ 2A B82 14 ERVX6 LHLO - STRTV tINIT VARTIBLES BY 

1641 0BS3 22 TA 14 ; SHLU LASTV tINDIRFECT COMMAND: - 

1642 0B66 C9 RET 

1643 

1644 : SYMBOL TABLE TYPEOQUT ROUTINE 

1645 0B67 3E O4GE TOUMP >: MV] Ae?’ N8 

1646 0B69 Cd iB O12 CALL PRNTC | 

1647 OBEC SE 49 MV Av't]? 
1648 OB6E cD iB 01 CALL PRNTC ©1976 Processor-Technology-Corporation 


1649 0B71 C9 | RET PRINTED IN U.S.A. 
160 | 


A FOCAL INTERPRETER FOR THE 8080 ; PAGE 31 


RNe0 ¥XASM 
STwtit LOC OBJECT CODE SOURCE STATEMENT: 
16°1 sFLCATING PUINT FUNCTIONS 
16452 $ INPUT TO FLUATING POINT FUNCTIONS IS PONINTFO To BY PT1i (LHLD PTL) 
1623 :; INPUT IS 4 BYTES LONG. IT USUALLY COMES FROM THE ARGUMENT TO THE FUNCTION. 
16°4 ; OUTPUT FRUM FLOATING POINT FUNCTIONS SHOULD RE THE FOUR BYTES POINTEN 
16°§ ; TO BY PTi. 
164°6 OB72 C9 XUSR?: RET 
1657 : INVERSE DIVIDE ROUTINE 
16¢8 0873 £5 IOVS PUSH H 
1hE9 0B74 CO pi OF CAL TST SFLOATING POINT ACCUMULATOR TO REGISTERS 
16¢€0 0B77 2— 45 MV 1 Le>IovtT 
THEL 0879 CD B66 OF CALL STR sDIVISOR TO STORE AGE 
16€2 0B7C El PUP hi . 
1663 0B7D CO £6 OF CALL Loo ,O0IVIDENE TO FLAOTING POINT ACCUMULATOR 
1664 CBkO 2—E 45 MV 1 Le>INVT SADDRESS MIVISOR © 
16€5 0B82 C3 2C 20 JMP NIV tRETURN THROUGH NIV ROUTINE 
1hE6 ; 
16¢7 : SLUBROUTINE FOR EVALUATION OF ELEMENTARY 
14¢8 : FUNCTION MACLAURIN SERIES 
1669 : 
1670 ; ENTRY FMmaACE FOR EXPCNENTIAL TYPE SERIES«E.Ge 
1471 ; ENTRY FaaClL FOR LOGARITHMIC TYPE SERIESe £.Ge 
1472 H ARCTAN(Z)2Z/1—-Z2%%3/34Z2e%5/5= wee 
1473 ; S(Te1)=¢1./ACI) + x*SO1))- SCN)=0. 
1674 : 
TE75 H If’ BOTH SERIES DEL**2(A(1T)) MUST BE CONSTANT 
1676 : ENTER WITH X IN FMACXe A(N) IN De NCA(NH1)) IN Ce 
1477 ; De*e#2(A(1)? IN Be 
14,78 ; RESULTS YN FMACSe WHEN A(T) ¢€ O- 
16479 3 . 
1420 ; 2 LCVELS OF STACK USED BEYOND FLOATING POINT PACKAGE 
16€1 | H 
TAF) 0885 AF FMACL XKA A TCLEAR A-REGISTER FOR LOG TYPE SERIES 
1683 0B86 21 49 OO Lxi Hef MACS sPOINT TO SIGMA 
1AE4 0B59 77 MOV Meh sZERO STOREN 
1485 oBBA 21 cB oB Lxl HeFMACB ?iPRESET BRANCH B 
TREE OB8D C3 SOF QB - . UMP FMACC s;YOINT CONE 
1487 0B90 2A FS OB FMACE$ Lhieu FONE sMOVE 1.0 TO SIGMA FOR EXP TYPE SERIFS 
1£E8 0893 22 49 00 Shiu FMACS 
1689 0896 2A FS OB LiLo FONE4¢2 
346¢0 0B99 22 4B 00 Shiu FMACS+42 
16¢1 0B9C 21 AF OB Lx] HeFMACA tPRESET BRANCH A 
16¢2 OBSF 22 51 00 FMACCs Stilu FMLCG sSTORE PRESFT BRANCH 
1403 CBA2 1E «620 MV 1 bese s;COUNT FOR FLOATING OF ACT) 
166% OBAY C5 FMACD3 PUSH B s;CHAIN RULE LOOP © 
14¢5 OBAS DS PUSH 0 SAVE AlIT)e N(ACT) }e O8*2(A(1)) 
1466 OBAG AF XKA A 3ZERO THE LEAN POSITIONS OF A(T) 
14¢7 OBA7 47 MOV Bel 
1A¢8 OBASB UF MCV Ceh 
1469 OBA9 CD 77 12 CALL FLT tFLOAT ACT) 
$70 OBAC 2E 40 MV d Le>FMACT <sINTO TFMP 
17ei1 OBAE CD 6 OF CALL STR 
17r2 OBB 2—E 45 MV 1 L »>FMACX SLOAD THE ARGUMENT ; 
17S QBb3 CO <6. OF CALL Loo : t 
17°74 OBB6 2— 649 MV 1 LeopFMACS SIGMA SO FAR SAE ea aaa a a en 
17S OnBEB cb a4 1410 CALL mul, | eo 


pened XASM A FOCAL INTERPRETER FOR THE 8080 | : PAGE 32 


STNNT Loc OBJECT CODE SOURCE STATEMENT 
17¢6 08BB° 24 51 #42900 LHL ou FMACG sCHOOSE THE RRANCH 
17°7 OBBE E9 PCHL ° 
17°8 OBBF 21 4p 900 FMACAS LXx1 HaFMACT 
17/*3 Once CD 2c )= 610 CALL DIV 
1710 08C5 21 F3 £O8 ; LxI He FONE ‘POINTS To 1.0 
1711 0BCE8 C3 bE oO8 JMP FMACF  §REJOIN COMMON CODE 
1712 . OBCB 21 49 90 FMACB$ Lxl HeF MACS 
1713 OBCE CD B6 OF CALL STR.  t Xe SIGMA 
1714 0801 21 F3 O8 Lad HeFONE tLOAD 1.0 
4735 -OBD4 CD €6 OF CALL LOU 
1716 0807 2—E 4D MY I L»>FMACT 
1777 OBD9 CD 2C 10. CALL OIV ti/A(I) 
1718 OBDC 2E 49 Myvi Le>FMACS stPOINT TO X*xSIGMA 
1719 OBDE CD 4F 140 FMACF 3 CALL AD 
1720 © OBE1 2€ «649 MV 1 Le>FMACS sSTORE NEXT LINK 
721° OBE3 . CO R6 OF CALL STR 
1722 OBEG D1 PUP D 3A(IT) ANDO 32° 
1723 OBE7 C1 PUP 3 t0(A) ANG Oee2(A) 
1724 OBES 7A MOV AeD 
1725 OBES 91 SUS C 
1726 OBEA C8 7 RZ :OONE IF 7ERO 
1727 : OBEB 08 | RC 1OR NEGATIVE 
1728 OBEC 57 ) MOV NeA tA(Tel1) 
727 OBED 79 MGV AeC s0(A(IT-1)) 
1720 OBEE 90 SUB Bo 
1721 OBEF QF MCV CeA r0(At(Ie2)) 
1722 OBFO C3 AG OB JUMP FMACD INEXT ITERATION 
1723 3 2227279972777? 
1724 OBF3 81 FONE: DC 81H 
1725 OBF4 00 DC 0 
1726 OBF5 00 OC 0 
1727 OBFE6 00 OC 0 
1728 ORF? : 81 FPIV23 DC 81H 
1729 OBF8 49 DC GSH . 
1741 OBFA OC OC OOCH sPI/2 
1742 O8FB 60 FLN2S DOC 80H 
1743 OBFC 31 DC 31H 
1744 ORFOD T2 DC 72H 
1745 OBFE | 18 DC 18H LN 2 
1746 t. 
17u7 3 SINE-COSINE USING MACLAURIN SFRIES 
1748 H 
1749 : ENTRY FSIN FOR SIN(X) 
17£0 : ENTRY FcCOS FOR COS(X) 
17K H FNTER WITH X ‘IN RANTANS IN FLOATING POINT ACCUMULATOR 
172. ; (1F ABS(X) > 2%*24*ePI. OVFRELOW FLAG IS SET) 
172% ; 
17¢4 H WKIITEN BY OC’ JUELICHe 165-796e B86 
17e5 3 MISSILE SYSTEMS NIVISIONe ROCKWELL INTERNATIONAL CORP, 
17e6 i APRIL 1975 
17"7 ; 
72 3 ENTRIES TO FLOATING POINT PACKAGE | 
; ©1976 ProcessorTechnology-Corporation 
$7¢0 3 3 LEVELS OF STACK USED BEYOND FLOATING POINT PACKAGE. PRINTED IN U.S.A. 


BNPO XASM 
STwWHT 


17¢€1 
17F«2 
17€3 
17E4 
17¢€5 
17€E6 
17€7 
17¢€8 
17¢9 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1720 
1781 
1782 
1725 
1784 
1725 
1786 
17E7 
17288 
17&9 
17¢0 
17¢1 
1762 
17¢3 
1764 
17¢5 
17¢6 
1767 
17¢8 
17¢9 
1AC0 
1AaCci ’ 
1AC2 
1RESZ 
TREY 
qects 


gate 


1807 
18C8 
1aC9 
1240 
1941 
1212 
1243 
1844 
1945 


A FOCAL INTERPRETER FOR THE 8080 


LOC OBJECT CODE 
FCOS$ 
OBFF 2A 78 14 
9C0e2 CD €E€6 OF 
ocos CO cS OF FCOSO: 
0008 21 F7 OB 
0c0B CD 4F 10 
OcOE C3 17 OC 
FSINS 
OC1i1 . 2A 78 14 
0c14% CD £6 OF 
0¢c17 CO O1 OF FSINOS 
OCIA e— 55 
Ccic CO Bp6 OF 
OC1F 21 F7 OB 
O0C22 CD 2C. 18 
0c25 1€ 1A 
O0c27 CO BE 12 
OC2ZA DA 42 10 
0c20 1E #64A 
OCe2F 16 oO 
0c31 CD 77 12 
0034 21 F7 OB 
0C37 CO 04 10 
OC3A CD cS OF 
60c30 2— $5 FSINAS 
OCF. CD 4F 10 
Oc4e 26 §5 
0c44 CD pé OF 
O0C47 CO c8 OF 
OC4UA 21 F7 OB 
0c4D - €O 4C 10 
0¢50 FA 71 OC 
0c53 CA 71 OC 
0c56 21 F7 OB 
0c59 cD 4¢C 10 
OcsC SF r 
6c50 2—E 56 
-OC5F TE 
0c60 E6 890 
0C62 FE g0 
OC64 A& 
0cé5 4 7 
0C6&6 7B 
0C67 2B 
0cé8 CD B6 OF 
O0C6B CD BE OF 
OC6E C3 30 oc 
H 
Oc7i 2€ 55 FSINB$ 
0073 CO €6 OF 
0C76 2€ §5 
0C78 CO O04 10 
0C7B CO cS OF 
OC7E 2— 45 
9C80 CO p6 OF 


SOURCE STATEMENT 


Lh 
CALL 
CALL 
Lxl 
CALL 
UMP 


LHLO 
CALL 
CAuL 
MV 


HeFPYV2 
AD . 


TST 

{ e>FSINX 
STR 
HeFPIVS 
DIV 
fees 
FIX 
OVERF 
E226 
0e0 

FLT 
HeFPIVO 


MUL 


CHS 
L+«>FSINX 
AD 
Le>FSINX 
STK 

ABS 
HeFPTY2Q 


FSINB 
HeFPiye 
SB 

FoA 


Le>FSINX41 


Ahem 
80H 
BOH 
B 


Bel 


AcE 

H 

STR 
ZRO 
FSINA 


L»>FSINX 
LOD 
L«>FSINX 
MUL 
CHS 
Lo >FMACX 
STR 


PAGE 


sCOMPLEMENT THE ANGLE 


tFETCH ARGUMENT 
3TO SAVE IT 


sREDUCE X TO REVOLUTIONS * 4 


QUIT IF ANGLE TOO LOARGE 


tWIPE OUT FRACTIONAL REVOLUTIONS 
:INTEGER PART OF RFVOLUTIONS 
1TO RANIANS 


tSUBTRACT INTEGRAL PART 
tSUM IS REDUCED 


ISAVE IT 


SFORCE ANFLF INTO RENMUCED RANGE 


;I1F NEGATIVE OR ZERO 
‘THEN ANGIE rS REDUCED 
TABS (X)-PI 


tSAVE AwRFGISTER 


‘SIGN OF Xx 
SINVERTFO 
TeSIGN(X) « (ABS(X)=PTI) 


SRESTORF A-REGISTER © 

sPOINT TO FSINX 

sREDUCED x 

s;CLEAR ACCUMULATOR 

SREPEAT UNTTL ARS(X) <= PI/2 


t=Xxe2 


©1976 Processor‘Technology-Corporation 


iTO MACE AURIN SERIES PRINTED IN U.S.A. 


RAe0 XASM 
STWNT 


1A16 
1817 
7818 
12499 
120 
1821 
1822 
1823 
1A24 
1AS5 
1826 
1257 
1428 
1429 
1820 
LAs} 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1840 
1AG1 
TAw2 
1843 
1844 
1845 
1846 
1AU7 
Taub 
TAGS 
Tato 
1TRet 
1822 
1883 
1RE4 
LARS 
1Acé 
1887 
yas 
1AeS 
18¢€0 & 
18¢€1 
1REQ 
18¢E3 
18¢4 
1865 
1SCE6 
18¢7 
1°¢8 
1869 
1870 


A FOCAL INTERPRETER FOR THE 8080 
Loc 


0c8&3 
occas 
0c8&7 
0c8&9 
ocsc 
OC8E 
0Cc9l1 
O0cS3 
0C96 
0c98 
0C9B 
O0csD 
OCSE 
OC9OF 
OCAO 
OCAl 
OCA 
OCA7 
OCAA 


OCAB 
OCAE 
ocBl 


OCBS. 


OcBS 
0CB7 
OCBA 
OCBD 
occo 
Occs 
occ 
occé 
occsB 
OCCE 
OCCF 


-0C01 


Ocbe 
OCD4 
ocD5 
OCD6& 
OCD? 
ocD9 
ocOc 
OCDE 
OcE1 
OCE3 
OCE6 
OCES 
OcEC 


OBJECT CODE 


D1 


B6 


0B 
OF 
10 


oc 


OF 


OF 


OF 
OF 
10 


14 
OF 


SOURCE STATEMENT 


FSINC? 


Po es ce we we of oo 


MV1 
MV] 
MV J 
CALL 
MVd 
CALL 
MVI 
CALL 
CF] 
JC 
MV 1 
XRA 
MGV 
INR 
MOy 
CALL 
LHLO 
CALL 
RET 


De72 
C30 

Be8S 
FMACE 
L«>FMACS 
LOO 

Le >FSINX 
MUL 

81H 
FSINC 
LeACC2 

A 

Mel 

L 

MeA 

TST 

PT4i 

STR 


39%8B» 11 TERM DISCARDEDe 18 RITS PRECISION 


3 9* Bw 7RE 
3(9%8-7#6)—(7%6-5*4) 


$SUM OF SFRIES / X 


‘SEE IF TATL NEEDS CLEANING 
SNOe MAGNITUDE IS <€ 10/7 


tZEROS FOR THE TAIL 


RESTORE FLAGS AND REGISTERS 


ARTAN ROUTINE USING MACLAURIN SERIES 

ENTRY FATAN FOR ARCTAN(X). WITH X IN FLOATING ACCUMULATOR 
RESYLT RETURNED IN FLOATING ACCUMULATOR 

WRITTEN BY O.C. JUELICH 


FOUR LEVELS OF STACK USED BFYOND FLOATINF POINT PACKAGE 


pPT1 
LOO 
TST 


81K 
FAINI 
HeFONE 
yOV 
FATN? 
Le>FATNU 
STR 
HeFPIV2 
Loo 

Eel 


LeoFATNU41 


AeM 
80H 
B 

Boh 


“ASE 


LeSFATNT 
STR 
Le>FATNT 
LOO 
Le>FATNU 
SB 

PT 

STR 


‘GET Fe. P. ACC. INTO REGISTERS 
sTEST ECXPONENT 

SRETURN TO CALLER FROM FATNi1 
$1.0 

$1,0/X 

sGET ARCTAN(1/X) 

TSIGN(T) #(PI/2-ABS(T)) 

tPI/2 

sSAVE AwjRFEGISTER 

$TO AeREGISTER 

sATTACH To PI/2 


sRESTORE AeREGISTER 
tSAVE SIGN(T)*PI/2 


S@SIGN (TI*(PI/2-ABS(T)) 
S=SIGN(T) *«ABS(T)=T 
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PRINTED IN U.S.A. 


PAGE 


34 


8N280 XASM 
STwNT 


1871 
1TAF2 
18973 - 
187% 
1875 
1876 
1877 
1878 
1879 
1880 
*8AL 
1882 
1863 
1ae84 
38e5 
18286 
1887 
168 
1AeS 
1ASO 
1AS4 
1852 
7Aa¢3 
qacy 
tAas5 
VASE 
1857 
1858 
Tass 
190 
1901 
1902 
$903 
39C4 
79C5 
1906 


9907 


1908 
1909 
1940 
19171 
1912 
1943 
1914 
1975 
1996 
1917 
1978 
1979 
1920 
1921 
1922 
1923 
yeacs 
1925 


-& FOCAL INTERPRETER FOR THE 8080 


LOC 


OcEO 
OCEF 
OCcF2 
OCF4 
OCF7 
OCFA 
OCFD 
0000 
0003 
0066 
0008 
000B 
0000 
0010 
001e 
0013 
0016 
0018 
0018 
OD1E 
0020 
0023 
0025 
OD27 
CD29 
ooec 
OD2E 
0031 
0033 
0036 
0037 


—OO3A 


0030 
OO3E 


COSF 
0042 
0045 
C048 
CD4A 
004D 
CO4F 
0051 
0053 
0056 


OBJECT CODE 


00 


“T) we ce we of we we ce oo we 


SOURCE STATEMENT 


: 
FATN1: 


HYS$ 


FSINHS 


EVALUATE ARCTAN OF ARGUEMNTS & 1. 


MV1 
CALL 
MV1 
CAuL 
LXxl 
CALL 
CALL 
Lxl 
CAuy 
MV1 
CAur 
MV1 
CALL 
MV 1 
INR 
CALL 
MV1 
CALL 
CAuy 
MV1 
CALL 
MV1I 
MV1 
MVI 
CALL 
MV1 
CALL 
MVI 
CAur 
PLUSH 
Lhuy 
CAcu 
PUP 
RET 


Le>FATNT 
STR 
Le>FATNT 


HeF ONE 
AD 
LeoFATNT 
IOV 
LeoFATNT 
STR 
LeOFATNU 
A 

STR 
LeoFATNT 
VUL 

CHS 


-Le>FMACX 


STR 

Dell 

Cee 

BReO 
FMACL 
LeoFMACS 
Loo 
L»eoFATNY 
MUL 


sPOINT TO TEMP 


TTAN(T) #892 


31 -0O4¢SORT(TAN(T) #*#241.0) 
sTAN(T) 
$TAN(T/2) 


t2eTAN( TS) 


te TAN(T/2) a%2 


PAGF 35) 


tTERM 1% NISCARNEDs 16 BITS PRECISION IN RANFE 


+(11-9) 
$(11°"°9)-(9=7) 


8 OT/2)/TAN(T/2) 


t*#(2eTAN(T/2)) 


EXPONENTIAL AND HYBPERBOLIC SIN ROUTINE 
USING MACLAURIN SERIES FOR SINH 

ENTRY FEXP FOR EXP (Xx) 

ENTRY FSINH FOR FSINH(X) 


ENTER WITH X IN FLOATING POINT ACCUMULATOR 


RETURNS WITH FUNCTION IN FOONATING POINT ACCUMULATOR 


IF FUNCTIUN EXCEENS 24127, 


WRITTEN BY O.C. 
S LEVELS OF STACK USED BEYOND FLOATING POINT PACKAGE 


LHLO 
CALL 
CAuu 
MVI 
CALL 
MV 1 
MV 4d 
Su} 
JM 
chil 


PT1 

LOO 

TST 

i «>F SNHX 
STR 

tL» >FSNHD 
va 0 

80H 
FSNHA 

8 


JUELICH 


OVERFLOW FLAG IS SET . 


sFETCH FLOATING POINT ACCUMULATOR 


tSAVE ARGUMENT 
tADNRESS NOUBLING COUNTER 


sREMOVE OFFSET FROM A 
SDOUBLING COUNT ANN xX ARE O.4Ke 


‘ELIMINATE OVERSIZE DOUNBLING 


©1976 ProcessorTechnology- soleerelicn 
PRINTED IN U.S.A. 


PNFO XASM 


 STNNT 


1926, 
1927 
1928 
1929 
1920 
1921 
19272 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1940 
- 394i 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1920 
191 
19°02 
1983 
19e4y 
1985 
1926 
19°7 
1988 
1985 
19¢€0 
196€1 
19fe 
39€3 
19¢€4% 
19€5 
1966 
19¢€7 
19¢8 
19¢€9 
1970 
19971 
1972 
1973 | 
1974 
1975 
1976 
1997 
19768 
1979 
19a0 


A FOCAL INTERPRETER FOR THE 8080 


Loc 


0058 


QD05B 


QgD5Cc 
ODSE 
0D60 
0063 
0D65 
0068 
OD6A 
0060 
OD6F 
0071 
0073 
0076 
0076 


0078 


0D7D 
0p80 
0082 
0085 
0087 
oDBA 
oD8D 
009 

0093 
0095 
0098 
009A 
0098 
0D9E 
ODAD 
ODA 
ODAS 
0DA8 
ODA 
ODAB 
ODAE 
0DB0 
0083 
0085 
0DB8 
ODBA 
0DBB 
ODBE 
00C1 
oDC3 
0DC6 
oDc9 
oOCB 
ODCE 
OOCF 
0D02 
0005 
ODDE 


OBYECT CODE 


G2 


10 


OF 


10 


SOURCE STATEMENT 


ESNHAS 


FSNHB S$ 


FSNHC ¢ 


FEXPs 


JF 
MGy 
MV1 
MV 1 
CALL 
MV I 
CAuu 
MVI 
CALL 
MVd 


OVERF- 


MoA 


Le >* SNHX 
MeSOH © 
LOD 

Le >- SNHX 
MUL 
L+«>FMACX 


‘Le>FMACS 


LOD 
L + SF SNHX 
MUL 
Le >FSNHX 
STR 
L «>FSNHX 


Le >FMACX 
STR 

te >FSNHD 
M 

FSNHC 

tL «>FMACX 
LOD 

L +e 2FSNHX 
MUL 

A 


Le >FSNHX 


STR 
Le>FMACX 
LOD 
L+>FMACX 
MUL 
LeACCE 

M 

He FONE 
SB 

«> FMACX 
STR 
FSNHB 


Le >FSNHX 


LOo 


PAGE 


:KETURN THROUGH OVERFLOW ROUTINE 

SAVE THE DOUBLING ARGUMENTS 

sBRING ARGUMENT INTP RANGE 

sPUT X INTO FLOATING ACCUMULATOR 

tXuex2 

37*6~ 9 TERM DISCARDED. 18 BITS PRECISION 


17%695e4 
(766544) @ (Se4—3 #2) 


tSINH(X) 
tSINH(X) «2 
$+1.0 


tCOSH(X) FOR DOUBLING ANO FOR EXP({X- 
‘TEMP 


sADDRESS DOUBLING COUNT 
tTALLY AT LOOP TOP 
tDONE WHEN NEGATIVE 
tCOSH( x72) 


ASINH(X/2) 


$2 eS INH(X/2) *COSH(X/2) 
tSINH(X) 


,COSH(X/2) 


~—6 $2 ee COSH(X/2) 2 


Sele 
t=COSH(X) 


‘TEST THE DOUBLING COUNT 


©1976 Processor-technology-Corporation 


PRINTED IN U.S.A. 
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8N#®0 XASM 


A FOCAL INTERPRETER FOR THE 8080 


PAGF 


37 


STwNT Loc OBJECT CODE SOURCE STATEMENT 

19Al 0007 2A 78 14 LHLO PT1 

1982 CODA CD £6 OF CALL LOD 

1983 's]0}8)8) CO D1 OF FEXPOS CALL TST 

1984 ODEO Fo 09 O€ JP FEXPP 

1925 ODES 2— 33 MVI LeOVER | $SAVE OVERFLOW FLAG 

1926 ODES 5E MOV FeM 

1987 ODEG 36 00 MVi MeO {CLEAR OVERFLOW FLAG 

1948 CO0r8 2—E «oF MV1 LeFEXOVeSCR 

1989 ODEA 73 MOy Mek ,OLD FLAG TO SAVE CELL 

19¢0 ODEB CO c8 OF CALL ABS 

191 ODEE CD o9 OE CALL FEXPP sEXP(-X) YN ACC 

19¢2 ODF1 2— 54 MVi Le>FEXOV %tGET OLN OVERFLOW FLAG BACK 
19¢3. CoF3 SE MGV Fem 

19¢4 CoF4 2— 33 MV 1 L+>OVER tPICK UP NEW ONE TO TEST 

19¢5 OOFE 7E MGV AwM 

1966 COF7 73 MOV Mek sRESTORE OLD OVERFLOW FLAG 

19¢7 OOFSs A7 ANA A sSET FLAGS 

1998 OOFS C2 BE OF JINZ ZRO tRECIPROCAL OF OVERFLOW IS ZERO 
1969 OOFC 21 F3 O8 LX1 He FONE 

anco OOFF CO 73 OB CALL IOV (1./EXP (eX) SEXP(X) 

2004 0f02 “2A 78 14 LHLO PT1 

2nn2 oF05 CO B66 OF CALL STR 

2ne3 0of08 cg RET | 

2ncg of09 CO 45) «#00 FEXPPS CALL FSINK sSINH(X) 

2ne5 OFOC 2—E 645 MV1 Le>FMACX %+COSH(X) 

29C6 OEOE- CO 4F 10 CALL AO s=EXP(X) 

2007 QO£11 E5 PUSH H 

2008 0O£12 2h 78 14 LHLG PT1 

2neg 0£15 CD B6& OF CALL STR 

2nqo 0£18 Ed POP H 

re oe 0£19 c9 RET 

?Pnt2 : t NATURAL LOGARITHM ROUTINE USING MACLAURIN SERIES 

2013 $ ENTRY FLOG FOR LNCANS(X))¢ WITH xX IN FLOATING POINT ACCUMULATOR 
2ng4 ; RESULT IS RETURNED IN FLOATING POINT ACCUMULATOR 
2n75 4 IF X = 0 THE OVERFLOW FLAG TS SET 

2n16 $ 3 LEVELS UF STACK USED 

ong? FLOGS: 

2n718 OELA 2a 78 14 LHLO PT1 

2999 0£10 CD £6 OF CALL Loo 

7020 CE20 CD c8 OF FLOGOS$ CALL ABS tFORCE ARGUMENT POSITIVE. SET ZERO FLAG 
Anet ' O£23 CA 42 10 JZ OVERF tRETURN THROUGH CVFRFEFLOW ROUTINE 
2ne2 Of26 Dé 81 SUL 81H sREMOVE EXPONENT OFFSET 

2no3 CE28 ee «53 | MV1 L+>FLOGE _ 

2024 OE2A 77 MUV mel 

enes O£28 3E 681 MVI Ae8ik sNORMALIZE ARGUEMENT 

2ne6 0£2D 2— 58 MVI L e>FLOGX 

2no7 Ofer CD B6& OF CALL STR sCALL IT x 

2n28 OF32 2— 55 MVI L «>FLOGX 

2029 O£34 CD £6 OF CALL mele 

2n20 0E37 21 F3 OB | Lxl HeF ONE 

2nzl OE3A CO 4F 10 CALL AD 

PAID O£3D 2—E 49 MVE —Le>FMACS 

an23 CESF CO B& OF 4 CALL STR. 1X+1.0 

on24 Of42 2— 58 -o: MVI Ls >FLOGX ©1976 ProcessorTechnology-Corporation | 
2n2z5 QE44 CD E6 OF CALL LOD PRINTED IN U.S.A. 


enedg XxXASM 
STWNT 


226 
Pnz7 
2028 
2nz9 
240 
204i 
Phu 
anys 
enus 
2nys 
enue 
2047 
onus 
2049 
POO 
AUF) 
anee 
ones 
eney 
ene 
2neg 
ahe7 
2nesB 
aneg 
2%¢«0 
Pel 
Pn€2 
2¢e3 
Pne4 
enes 
Anes 
ane? 
2ne8 
BHES 
2070 
2071 
2072 
2073 
AO7% 
2975 
2076 
2n77 
2978 
2079 
2Ahed0 
onel 
2082 
ened 
2084 
2nhe5 
2ne6 
ona? 
2088 
2ne9 
2ne0 


A FOCAL INTERPRETER FOR THE 8080 


Loc 


0E47 
OE4A 
OE4D 
OE4F 
OE52 
CE54 
CE57 
0E59 
OE5C 
OESE 
Of61 
0663 
Of65 
OE67 
OLGA 


OE6C 


O£6D 
0£70 
OE72 
OE75 
C£77 
OETA 
OE7C 
SE7D 
CETF 
CE80 
O£81 
0E83 
OE&6 
OE89 
OEBC 
OEBE 
0E91 
OE94 
0E97 
0£98 
CESB 


OESE 
OEAL 
OFA2 
OE AS 
OLA 
OLAS 
CEAD 
OEAB 


OEAD 
CEBO 
OEBe 
0EBS 
OEL 

OEBS 
OEBA 
OEBD 


OBJECT CODE 


0B 
10 


10 
OF 
10 
OF 


08 


12 
0B 
10 


10 
14 


OF . 


14 
OF 


OF 


OF 


OF 


OF 


10 


SOURCE STATEMENT 


PAGE 


tX-1./ 


(X-1.037(%4+1.0) 


$0 (X91 .0)/0X%41.0) ) #2 

sDISCARN 11 TERM FOR 18 BIT PRECISION 
19"7 

3(9"7)-(7=+5) 


s;DOUBLE THE SUM 


tLOGARITHM OF FRACTIONAL PART 
sEXPONENT AS INTEGER 
SBINARY SCALE FOR EXPONENT 


tLOGARITHM OF 2**EXPONENT 
sLOGARITHM OF FRACTIONAL PART 


sPOOINT TO INPUT 
sLOAD IT 


LEVEL OF STACK USED. BEYOND FLOATING PACKAGE 


Lx HeF ONE 
CALL SB 
MV1 Le>F MACS 
CALL OIV.. 
MV1  LeFLOGX 
CALL STR 
MVi L»«>FLOGX 
CALL MUL : 
MVI Le>FMACX 
CALL STR 
MVI 09 
MV1 Cr+2. 
MV1 B80 
CALL FMACL 
MV1 Le>tFMACS 
IWR M 
CALL LOO 
MV L»FLOGX 
CALL MUL 
MV1 Le >FLOGX 
CALL STR 
MV1 L+>FLOGE 
MOV AacM 
MV 1 840 
MOY CB 
MOV 0-8 
mV1 £8 
CALL FLT. 
Lxi HeFLN2 
CALL MUL 
MVi Le >FLOGX 
CALL AD 
Lid PT1 
CALL STR 
RET 
XSQT3 LHLO PT1 
CALL LOD 
; ONE 
FSQRTS$ Cay ABS 
RZ ey 
Myl Le>rSQRN 
CALL STR 
ANA A 
RAR 
Abl GOH |. 
MVa L+>FSOQRX 
H ITERATE ; 
CALL STR i 
MVI De5 
PUSH D 
FSQ@RL¢ MV1 Lwe>FSORN 
CALL LOO 
MV 2 Le >oF SQRX 
CALL “CIV 
MV1 L+oFSQRX 


tFORCE paRGUMNET PSOITIVEs SET ZERRO FLAG 
sPFETURN ON ZERO 
tSTRRAGF FOR ARGUMENY 


sRESET CARRY BIT 
sHALVE THE FXPONENT 
sRESTORE THE OFFSET 
;STORE THE FIRST 


tITERATION COUNT 
tSSTACKEN 
tLOAD THE ARGUMENT 


sDIVIDE BY ITERATE 
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sADD ITERATE PRINTED IN U.S.A. 


38 


ROLG XASM 
STWNT . 


ane? 
2nte 
29¢3 
20¢4 
2qcs§ 
2n¢eg 
PACT 
24¢8 
ees 
2400 
2104 
249Ce2 
ies 
eit 
295 
2406 
ant 
Pics 
2109 
2110 
2111 
2142 
2413 
2114 
7175 
2116 
2147 
2118 
2119 
3429 
2422 
2422 
2423 
21424 
2125 
2426 
2127 
2328 
2429 
24720 
P{zi 
2472 
2425 
77424 
2125 
27126 
a oat 4 
249278 
21279 
271u0 
Piui 
Pque2 
2143 
Pru 
29u5 


A FOCAL INTERPRETER FOR THE 8080 


Loc 


OEBF 
QECe 
CEC4 
CECE 
oECc9 
CECA 
CECB 
OECE 
OECF 
oF D2 
oEDY 
GED7 
C£08 
0£0B 
OECE 
OEOF 


OEEO 
OFES 
OFFS 
CEE6 
OEE7 
OEES 
OFED 
OEEA 
CEEB 
OEEC 
CEED 
OEEE 
OEEF 
OEFL 
OEFe2 
OFFS 
CEF4 
OEFS 
QEFG 
CEFS 


OEFA, 


OEFB 
OEFE 
OF OW 
OF O4 
OF 07 
OF OS 
OF OC 
OF OD 
OF 10 
GOF13 
OF 46 
OF19 
OFIC 
OF1D 
OF 20 
OF23 


OBJECT CODE 


CO uF 10 
D6 oO1 

2— 649 

CD Be OF 
D1 

15 

CA D2 O€ 
D5 

C3 63 OE 
2— 49 

CD £6 OF 
ES 

2h 78 14 
CD p6 OF 
El 

C9 

21 27 15 
06 08 

7E 

07 

07 

07 

AE 

17 

17 

2B 

2B 

2B 

O£& 04 

7E 

£7 

77 

23 

0D 

C2 Fl OE 
2B 

05 

c2 £6 OE 
21 24 15 
cD £6 OF 
24 78 14 
3— 80 

CD B6 OF 
cS 

2A 78 14 
CD £6 OF 
cO c8 OF 
2A 78 14 
CO B6 OF 
C9 

2h 78 14 
CD £6 OF 
1E 20 


SOURCE STATEMENT 


CALL 
Sbl 


FSQRES$ MV1 


AD 
1 


Le>FSQRX 


STR 
0 

D 

FSOQRE 

0 

FSGUL 
Le >FSORX 
LOD 

H 

PT1 

STR 

H 


SVHALVE THE RESULT 
sRESTORE NEXT ITERATE 


sRESTORE TTERATION COUNT 

7 TALLY 

sEXIT WHEN COUNT EXHAUSTED 
stSAVE TT OTHFRWISF 
t3TO NEXT TTFRATION 

sRESULT TO ACCUMULATOR 


sPOINT TO OUTPUT 


$ PSUEDO RANDOM NUMBER GENERATOR 


XRANS Lx] 
MV 1 
MOV 
RLC 
RLC 
RLC 
XRA 
RAL 
RAL 
OLX 

“OCx 
DCX 
MV1 

RN2s MOV 
RAL 
MOY 
INX 
DCR 
JNZ 
DCX 
DCK 
JING 
Lxl 
CALL 
LiLo 
MV I 
CALL 
RET 
Lid 
CALL 
CALL 
LHLO 
CALL 
RET 
LiHLO 

CALL . 
MV 1 


RN1° 


XABS: 


XINTS 


HeRANO4+3 
B+8 
AeM 


RN1 
HeRANO 
LOD 
PT1 
Ae80H 
STR 


PTl 
Loo 
ABS 
PTi 
STR 


PTi 
LOD 
Fe52 


sGET VALUF TO OPERATE ON 
tLOAD IT ; 

t FAKE ARS 

‘GET ANNRFSS TO PUT IT 
sSAVE RESULT 


tGET VALUF TO OPERATE ON 
sLOAD IT 
sSCALING FACTOR IS 32 
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STWNT 


24iu6 
2147 
2448 
A109 
27#0 
ee ease | 
212 
2483 
2154 
27&5 
LEG 
cs Sl § 
218 
2O7E9 
A1E90 
 OLel 
ete 
21€3 
OCTEY 
24€5 
P1E6 
21eT 
2168 
21€9) 
2179 
2171 
2172 
72173 
Pi 74% 
2475 
2476 
2177 
72178 
2179 
21280 
CLF 
2182 
7183 
2484 
21@&5 
216 
2487 
24&8 
2189 
21¢0 
21¢1 
21¢2 
21¢3 
2164 
21¢5 
2166 
PLe7 
21¢6 | 
ALES 
2200 


i 
SRAISE TO A PUWER 


SOURCE STATEMENT 


CALL 
MV 

CALL 
Lhwt 
CALL 


FIX 
Ee32 
FLT 
PT1 
STR 


pT.1 


LOD 

TST 

xSG1 
xSG2 
HeFLTONE 
Loo 

PT1 

STR 


A 
xSG3 
HeFLTONE 
LOD 

CHS 

XxSG3 


PAGE 


STAKE INTFGFR 


tFLOAT RESULT 
sGET RESTORE ADDRESS 
SSAVE RESULT 


3GET ANDDRFSS OF OPERAND 
LOAD IT 

sTEST IFRT 

+ZERO 

sLESS THAN ZERO 

$20¢ RESUI T=1 

tLOAD 1 

3GET POINTFR TO RESULT | 
tSTORE RESULT 


tMAKE EXPONENT ZERO 
tRESULT IS 7ERO 

+<0 

;GET ONE 

sMAKE IT NEG 


sARGUMENT MUST BE POSITIVE INTEGER 
,(WORKS LIKE A FLOATING POINT PACKAGE ROUTINE) 
H,»ACCE+SCRB 


A FOCAL INTERPRETER FOR THE 8080 
Loc OBVECT CODE 
OF 25 CO 8E ile 
OF 28 JE 20 
OF2A CO 77 12 
OF 2D 2A 78 14 
OF 30 CD B6 OF 
OF 33 C9 
OF 34 2A 78 14% XSGN¢ 
OF 37 COD £6 OF 
OF 3A CD 01 OF 
QF 3D CA 50 OF 
OF 40 FA 54% OF 
OF 43 21 62 15 
OF&E CD E6 OF . 
OF4UY 2A 78 14 XSG32 
OF &C CO B6 OF 
OF4F- C9 
OF50 o7 XSG12 
OF 52 C3 49 OF 
CFS4 21 62 15 XSG25 
OF 57 CD. EG OF 
OSA: 4 CD cS OF 
OF 50 C3 49 OF 
OFEO 21 35 00 FLEX: 
OFE3 CO 71 00 
OF GE 2A 78 14% 
OF G9 CO £6 OF 
OF EC CD Di OF 
OF 6F . CA AG OF 
OF 72 Fe oc O08 
OF 75 1E «620 
OF 77 - €DB BE ie 
OF TA SA 
OF 78 D4 
OF TC EB 
OF 7D 22 7A 15 
OF80 21 35 060 
OF 83 CO 7F 00: 
OF 86 97 
OF 87 32 39 00 
OF BA CO bl OF 
OF 8D ai 6€C 15 
OF 90 CD Bée OF 
OF 9S 2h TA 15 FLLP? 
OF 96 2B 
OF OT 7C 
OF98 BS 
OF 99 C8 
OFSA 22 7A 15 
OF 9D ei 6C 15 
OF AD CD 04% 10 
OF AS C3 93 OF 


Lxl 
CALL 
LHLO 
CALL 
CALL 
Jd 


PUSHF 
PTi 
LOD 
TST 
ZFEX 
ERRCRE 
Ee32 
FIX 

E ed 
Del 


TEMP 


tNEGATIVE 


HeACCE+SCRB 


| POPF 


A 

ACC3 
TST 
HeFLAC , 
STR 
TEMP 

b 

Arch 

L 


TEMP 
HerFLAC 
MUL 
FLLP 
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RN20 XASM 
STuNT 


22F1 
22r2 
-23ar3 
ook 
22°58 
2206 
2207 


A FOCAL INTERPRETER FOR THE 8080 


LOC 


OF AG 
OFAS 
OFAC 
OF AF 
OFR2 
GFB3 


OBJECT CODE 


15 
00 
Eo 
OF 


SOURCE STATEMENT 


ZFEX: 


LIBRARY: 


Lxl 
CALL 
LxAl 
CALL 
RET 
RET 


Het LAC 
POPF 

HeF LTONE 
me)8) 


PAGF Qi 
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2org * ; 

2240 * 8008 BINARY FLOATING POINT SYSTEM 

22a * : 

2242 * THE 8008 BINARY FLOATING POINT SYSTEM CONSISTS OF A SET OF SUBROUTINES 
2213 * DESIGNES TQ PERFORM ARITHMETIC OPFRATIONS ON NUMERIC QUANTITIES 

22494 * REPRESENTED IN MEMORY. 

2245 * | 

2246 * EACH NUMERIC QUANTITY GCCCUPIED FOUR CONSECUTIVE WORDS (32 BITS) OF 

2217 * MEMORYe THE LARGEST MAGNITUDE THATN CAN BE REPRESENTED IS APPROXIMATELY 
2?2?18 * 3066 TIMES TEN To THE 38TH PCSWER. THF SMALLEST NON#2ERO MAGNITUDE THAT 
2219 * CAN BE REFRESENTED IS APPROXIMATELY 2.7 TIME TEN TO THE MINUS 39TH POSWER,. 
22206 * EACH NUMEKIC QUANTITY IS REPRESENTEN WITH A PRECISION OF ONE PART ITN 
2221. *x APPROXIMATELY 16-000.J00. 

2222 * 

2223 * THE SOFTWARE CONSTITUTING THE FLOATING POINT SYSTEM IS DIVIDED INTO 

222% * TwO SECTIONS. FACH OCF WHICH OCCUPIFS 

2225. * 3 BANKS OF ROM OR RAM. SECTION 1 IS INDEPENDENT OF OTHER SOFTWARE. 

2226 * SECTION 2 IS OPERABLE GNLY WHEN SECTION 1 IS AVAILABLE IN MEMORYe IN 
2227 * ADDITION TO MEMORY REQUIRED FOR PROGRAM. 63 WORDS OF RAM ARE USED AS 

2228 * SCRATCHPALC. 

2209 * | ; 

2220 * SOFTWARE SECTION 1 CONTAINS THE FOLI OWING SURROUTINESS: 

2o2t * 

2222 * LOD = LOAD SPECIFIED OATA INTO THE FLOATING POINT ACCUMULATOR. 

22%3 * ADD = ADD sPECIFIED DATA TO THF FLOATING POINT ACCUMULATOR. 

2024 *x SUBe SUBTRACT SPECIFIED DATA FROM THE FLOATING POINT ACCUMULATOR. 
2225 me MUL = MULTIPLY SPECIFIED DATA TIME THE FLOATING POINT ACCUMULATOR. 
2226 x OIV = GIVIDE SPECIFIED DATA INTO THE FLOATING POINT ACCUMJLATOR, 
2227 * . TST = SET CONTROL BITS TO INNICATE ATTRIBUTES OF THE FLOATING POINT 
2228 * ACCUMULATOR. 

eof9 * CHS - CHANGE THE SIGN OF THE FLOATING PPINT ACCUMULATOR. 

2240 * ABS = SET THE SIGN OF THE FLOATING POINT ACCUMULATOR POSITIVE, 

2ud * STR > sSTORF IN SPECIFIED MEMORY THF VALUE IN THE REGISTERS AS 

2342 * RETURNED By OTHER SUBROUTINES. 

2243 * INIT = MOVE CODE FROM ROM TO RAM IN PREPARATION FOR EXECUTION OF THE 
2ouy * MUL AND DIV SUBROUTINES, 

2245 * 

2946 * SOFTWARE SECTIOn 2 CONTAINS: SUBROUTINES WHICH ARE-USED To CONVERT DNATA 
22047 * BETWEEN THE BINARY FLOATING POINT FORMAT AND A DECIMAL FORMAT SUITABLE 
2248 * FOR ENTRY OF DISPLAY ON INPUT/OUTPUT FQUIPMENT. THE DECIMAL FORMAT IS 
2349 | * STORED IN MEMORY AS A SERIES OF CHARACTERS. RFLATIVELY SIMPLE INPUT/OUTPUT 
Pond * ROUTINES pAY BE USED TO INTERFACE THE mEMORY RESIDENT CHARACTER SUING WITH 
Poa * ANY TYPE OF PHYSICAL I/0 DEVICE. 

2262 - * 

2083 * THE CHARACTER STRINGS CONSIST OF RCN REPRESENTATIONS OF DECIMAL DIGITS ANDO 
2on4 * ARBITRARY REPRESENTATIONS OF ++ we « AND EXPONENTIAL SIGN (LETTER &). AND 
Peed * SPACE. CHARACTER STRINGS MAY NOT CROSS MEMORY BANK BOUNDARIES. AN INPUT 
2286 * STRING IS THEREFORE LIMITED TO 256 CHARACTERS. AN OUTPUT STRING CONSISTS 
e207 * OF 13 CHARACTERS. 

22e8 * : 

2aag * THE OUT SUBROUTINE GENERATES CHARACTER STRINGS IN 2 FORMATS: THE CHOICE 
2260 * OF FORMAT VEPENNDS ON THE MAGNITUOF AF THE VALUE REPRESENTED. 

2261 * MAGNITUDES BEWTEEN .2000000 ANN 999999, ARE REPRESENTED BY A SPACE 
PPE? * OR MINUS SIYGNe SEVEN DECIMAL DTGITS AND APPROPRIATELY POSTTIONED 
2263 fe 
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STUNT Loc OBJECT CODE SOURCE STATLMENT 

P2EG * MAGNITUDES OUTSIDE THE RANGE ARE REPRESENTED BY A SPACE OR MINUS SIGNe 
22¢€5 * A VALuUc BEWTEEN 1.000000 AND 9.999999, AN EXPONENTIAL SIGNe AND A 

POEE * SIGNEU TwO NIGIT POWER OF TEN. 

22e7 * 

22€8 * THE INP SUBROUTINE CONVERTS CHARACTER STRINGS IN EITHER OF THE AROVE TwO 
A2€9 * FORMATS: OR A MODIFIED VERSION OF THEM, THE LEADING SIGN MAY 36 INCIEUODED 
2270 * OR OMITTEL. ANY NUMBER OF DIGITS May BE USED TO INDICATE THE VALUF.e 

2271 * WITH OR WITHOUT AN INCLUDED DECIMAL POINT. IF A POWER@-OF*eTEN WMULTIPLIFR IS 
2272 * INDICATED IT MAY BE SIGNEU OR UNSIGNED ANDO MAY CONTAIN ONE OR TwO NIGITS. 
2273 * AN INPUT STRING IS TERMINATED BY THR FIRST CHARACTER WHICH DEPARTS FROM THE 
2o7% * THE FOLLOhHING ARE EXAMPLES OF INPUT AND CORRFSPONOING QUTPUT CHARACTER 

2275 * STRINGSe 

2276 % 3.141593 32141593 

2977 * -~ OOLCULODONONNY H1,0Q000C0EF-13 

2978 * ¢1.,6£5 

2279 * +1.665 160000.0 

22n0 * 123456789 11.2-234568F4+08 

POA ik 243216 -10 52432100F-06 

2282 * “¢€7182813828F9 e2e118289) 

2283 * 

2984 * €v08 BINARY FLOATING POINT SYSTEM 

2925 + 

2986 * THE &UU8 BINARY FLOATING POINT SYSTEM CONSISTS OF A SET OF 

2287 * SUBROUTINES DESIGNED TC PERFORM OPERATIONS IN NUMERIC QUANTITIFS 

2288 * REPRESENTEO IN A SPECIFIC NOTATION. SURROUTINES ARE PROVIDED TO PERFORM 
Paed * A VARIETY OF ARITHMETIC AND RELATED OPERATIONS. 

2e¢cg * 

Pact * THE SWGROUTINES ARE DESIGNED Ton RE STORFD ANO EXECUTED IN 

22¢2 * READeONLY=MEMORY (ROM) ANU REQUIRE THE FIRST PORTION OF A BANK OF READ-WRITEo 
pocs * MEMORY(RAM) FOR SCRATCHPAD MEMORY, THE SUBROUTINES ARE SEPARATED INTO A 
aoe4 * NUMBER OF PACKAGESe EACH CONTAINING SUBROUTINES FOR A GROUP OF RELATED 
22¢5 * OPERATIONS» THE AMOUNT OF MEMORY (ROM AND RAM) REQUIREO FOR INSTALLATION 
22¢6 * OF THE SYSTEM Is DEPENDENT UPON THE COMBINATION OF PACKAGES TO SE USED. 
a2eT * SCRATCHPAL MEMORY IS INITIALIZED RY A UTILITY SUBROUTINE WHICH MUST BE 

22¢8 * EXECUTED BEFORE OTHER SUBROUTINES wRE EXECUTED THE FIRST TIME. 

2aeg * 

230 * IN GENERAL, THE SUBROUTINES HAVE SIMILIAR ENTRY AND EXIT CONDITIONS. 
23eL * UNLESS’ SPECIFIED DIFFERENTLY IN THE OFSCRIPTION OF A SPECIFIC SURROUTINEs THE 
23C2? * SUBROUTINES HAVE THE FOLLOWING CHARACTERISTICS. 

23ae3 * 

P3ry * SUBROUTINES REQUIRING ONE OPERANN TAKE IT FROM AN INTERNAL FLOATING 
2aes * POINT ACCUMULATOR. SUBROUTINES REGUIRING TWO OPERAND TAKE ONE FROM THE 
2arh * ACCUMULATOR AND THE OTHER FROM THF MEMORY LOCATION INDICATED BY THF CONTENTS 
Pze7 * OF THE H ANO L REGISTERS UPON ENTRY. THE NUMERIC RESULT OF EACH OPERATION IS 
2zrs8 * STORED IN THE ACCUMULATOR AND IS RETURNEO TO THE CALLER IN THE Ae Re Ce AND O 
239 * REGISTERS. 

3340 * : 

2A9i: * UPON EXIT FROM THE ARITHMETIC SUBROUTINE Se THE PROPERTIES OF THE RFSULT 
P3492 * ARE INDICAItD By THE SETTINGS OF THF CONTROL RITS. 

2333 * CARRY BIT = 1 THE RESULT EXCFENS THE CAPACITY OF THE ACCUMULATOR. THE 
7374 * OTHER CONTROL RITSe THE CONTENTS OF THE YAR IWARE 

2345 % REGISTERS+ ANN THE CONTENTS OF THE ACCUMULATOR ARF 

2316 * MEFANGINGLESSe THIS SITUATION IS ALSO INDICATED Ry A 
2397 * NON\#ZERO QUANTITY BEING STORED IN A FLAG wORD. 

23278 * CARRY BIT = 0 THE RESULT IS IN RANGE.’ THE ZERO AND SIGN 83ITS ARE 


©1976 Processor-Technology-Corporation 
PRINTED IN US.A. 


BOBU KASH ~~ A FOCAL INTERPRETER FOR THE 8080 © PAGF yy 


NIMTIE LUL OBVJECT COULK””  ~ SOURCE STATEMENT 

23419 * PROPERLY SFT+ ANN THF Ay Be Co AND DO REGISTERS CONTAIN 
2320 * A REPRLSENTATION OF THE VALUE OF THE ACCUMULATOR. 

2321 a ZERC SIT = 1 THE RESULT OF THE OPFRATION IS ZERO OR A BUANE TTY TOG 
2322 + SMALL TO BE RFPRESFNTEO. 

23423 * ZERC SIT = O THE RESULT IS NON-ZERO. 

2304 % SIGN oIT = 1 THE KESULT IS NEGATIVE 

2325 * SIGN BIT = O THE RESULT IS POSITIVE 

2356 Pa 

2327 * DATA ARE RFPRESENTED IN A NOTATION WHICH RECORDS FIGHT BITS EXPONEN,. 
2%28 * ONE BIT OF SIGN. AND TWENTY FOUR BITS OF FRACTION. 

2329 * THE LARGEST MAGNITUDE TEAT CAN BF RFPRESFNTED IS APPROXIMATELY 3.6 * 10 ** 38, 
2370 * THE SMALLES NON+Z7ERO MAGNITUDE IS APPROXIMATELY 2.7 * 10 «* ©3939, THE 

P3271 * RESOLTUION UF THE NOTATION IS APPROXIMATELY 6.2 * 10 ** #$8e ITefee RETTFR THAN 
2322 * SEVEN OECIMAL DIGIT PRECISION. 

27323 * 

2324 * 

25S. * DATA VALUES ARE REPRESENTED TN FOUR CONSECTIVE MEMORY WORDS WHICH MUST 
2336 * BE IN SAME 3ACK OF MEMORYe THE INTERPRETATION OF THESE wORD IS SHOW! 

D327 * BELOW. 

7328 a wORD 1 IF NON=ZERUGe THIS CONTAINS THE FXPONENT PLUS A 3IAS OF 

233g . * 200 OCTAL. THE EXPONENT INDICATES THE POWER OF 2 BY 

2340 * WHICH THE FRACTION Is MULTIPLTEND TO OBTAIN THE REPRESFNTFEO 
Rut * VALUE. FI THIS woRD IS ZERO THF REPRESFNTFO VALUE IS ZFRO 
2542 * AND WORDS 2e 3+ AND Y ARE MEANINGLESS. 

2343 * 

2444 * wORDcee BIT 7 

22us * THIS BIT INOICATES THE SIGN OF THE VALUE? 

2246 * O IF POSITIVEse 1 IF NEGATIVE. 

2247 * wWORDes BITS 6-0 | 

2348 * THESE BITS PLUS AN ASSUMMED 1 INT RIT 7 ARE THE MOST 

2249 * SIGNIFICANT BITS OF THE FRACTION. THE FRACTION IS STORED 
220 * IN ABSOLUTE FORM (CUNSIGNFO) WITH THF RANIX POINT 

DReY * POSITIONEO TO THE LEFT OF BIT 7. THE VALUE OF THE FRACTION 
D2eo * TS THUS LESS THAN 1.29 AND EQUAL TO OR GREATER THEN 0.5.6 

2xzZ * wORD 3 THIS WORD CONTAINS THF SECOND MOST SIGNIFICANT EIGHT BITS OF THE 
22E4 * FRACTION. . 

PRES * wORD 4 THIS WORD CONTAINS THF ; EAST SIGNIFICANT EIGHT BITS OF THE 

D2®G * FRACTION. | 

Pa Snail f * 

P28 x EXAMFLES OF DATA NCTATION. 

Prtg * 

22%¢e0 | * VALUE WOoRD1I woRD2 WORNS WORNDY 

2%) 0.0 000 XXX XxX x XX X = DONT CARE 

P%£2 * #120 201 0u0 Oca 000 

24%¢3 * -1.6 201 200 NCO oc0 

2zE4 * +0.1 175 114 314 314 

2245 * “100.1 207 310 163% 063 

226 * 

22gT7 * FLOATING POINT ACCUMULATOR. 

22¢8 * . 

2rED * THE FLUATING POINT ACCUMULATOR CONSISTS OF 5 .SCRATCHPAD WORDS 

2270 * CONTAINING KESPECTIVELY THE ACCUMULATOR EXPONENTe THE ACCUMULATOR SIGNe 
2372 * AND THREE wORDS CF ACCUMULATOR FRACTION. THF FXPOLENT OS RECORDEN WITH A 
2272 * BIAS OF 2LL UCTALe AN EXPONENT wOkM OF 2FRC INDICATFS THAT THE VALUE TN THE 
2%73 * ACCUMULATCR IS ZERO AND THE REMAINING WORDS OF THE ACCUMULATOR ARE MEANTNGLESS 
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2274 * THE SIGN WUKD HOLOS 000 IF THE ACCUMULATOR IS NEGATIVEe 200 IF POSITIVE. THE 
2375 * FRACTION IS RECORDED AS A NORMALIZEN POSITIVE VALUE WITH THE RADIX POINT TO 
2276 * THE LEFT OF THE MOST SIGNIFICANT RIT OF THE FIRST FRACTION WORD, 

A277 

PRE * OVERFLOW FLAG. 

23279 * 

2xe0 * THE OVERFLOW FLAG WORD IS PROVINFD AS A CONVENIENCE TO THE USFR OF THE 
Pe) * FLOATING FOINT SYSTEM. THE WORD IS INITIALLY SET TO ZERO AND MAY BE RESET 
23E2 * TO ZERO BY THE USER AT ANY TIME. WHEN ANY OF THE SYSTEM ROUTINES DETECT 

2383 * AN OVERFLOw CONNITION THE OVERFLOW FLAG IS SET NON=ZEROe THUS THE USER MAY 
PREY * CLEAR THE FLAGe PERFORM A SEQUENCF OF LOATING POINT OPFRATIONSe ANN CHFCK THE 
2295 * FLAG TO DETERMINE IF AN OVERFLOW OCCURRFND ANYWHERE IN THE SEQUENCE. 

PREE * 

PuET x SIGNIFICANCE INDEX. 

2288 * 

2z2ag * THE FLOATING POINT ADD AND SUBTRACT SUBROUTINES RETURN A SIGNIFICANCE 
azco * INDEX TO THE USER WHFN THE RESULT OF THE OPERATION IS NOT ZERO. THIS TNOEX 
oe To | * GIVES AN INJICATION OF THE CHANGE IN THE VALUF OF THE ACCUMULATOR EXPONENT AS 
P22 * A RESULT UF THE ARITHMETIC OPERATION PERFORVED. IT IS USED PRIMARILY FOR 
23z¢3 * COMPARISON UF Two VALUES wHICH ARF FXPECTED TO BE EQUAL + BUT WHICH MAY OIFFER 
2RCw * BY A SMALL AMOUNT DUF TO MEASUREMFNT OR ROUNND-OFF ERROR, AS AN EXAMPLE, A 
Paes * SIGNIFICANCE INnEX OF 354 OCTAL (-2n NECIMAL) INOICATES THAT THE RFSULT OF 
2%C6 * THE OPERATION IS SMALLER THAT THE GPERANOS BY A FACTOR OF APPROXIMATFLY 

24C7 * ONE MILLION (2 wx 20). 

?3¢8 * THE FLOATING POINT TESTe COMPLEMFNY AND AROLSUTE SUBROUTINES RETURN THE 
22¢9 * SIGNIFICANCE INDEX FROM AN IMMEDIATFLY PRECEFOING ADD OR SUBTRACT OPFRATION. 
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Auth Co 8408 RINARY FLOATING POINT SYSTEM 

2uc2 * 

urs * ARITHMETIC AND UTILITY PACKAGE 

2utg * ; 

24urs * THE ARITHMETIC AND UTILITY SUBROUTINE PACKAGE OF THE 8008 BINARY FLOATING 
2uré * PCINT SYSTEM CONTAINS SUBROUTINES FOR PERFORMING THE SASIC ARITHMETIC AND 
2407 * UTILITY OFERATIONS AVAILABLE IN THE SYSTEM. 

2u08 * 

24ut9 ‘ | | 

2440 * STORE REGISTERS SUBROUTINE. 

249 * 

2442 * THE STORE REGISTERS SUBROUTINE STORFS THE CONTENTS OF THE 
2493 * Ae Be Ce ANU D REGISTERS IN FOUR CONSFCUTIVE MEMORY LOCATIONS 
2444 * (IN THE SAME BANK OF RAM). THE ANORESS WHERE THE FIRST WORD 
2495 — * WILL BE STORED TS INDICATED BY THF CONTENTS OF THE H AND L 
2446 * REGISTERS 

2497 * 

2498 * ENTRY POINT 

2499 * STR 

2420 * 

24ue1 * ENTRY CONLITIONS 

2462 * A REGISTER = 1ST wWOROD TO BE STORFD 

2u23 * B REGISTER = 2ND WORL To BE STORED 

Puck # C REGISTER = 3RD WORD TO BE STORED 

2us5 * D REGISTER = 4TH WORD TO BE STORFD 

2436 * H RECISTER = mS 6 BITS OF MEMORY ANDRESS 

2427 * L REGASTER = LS 8 BITS OF MEMORY ADDRESS 

2498 * , 

2429 * EXIT CONDITIONS ; 

2420 * THE CONTENTS OF THE REGISTERS sTORED IN THE sPECIFIED 
P4uR1 * MEMOKY LOCATION 

2422 * 

2423 * REGISTERS ALTERED 

2424 * L . 

2425 oe 

2426 * MAXIMUM SU3ROUTINE LEVELS USED 

2427 x 0 

2428 * 

2429 oe 

24u0 * FLOATING FOINT 1 OAD SUBROUTINE 

PUY * y: 
2442 .* THE FLOATING POINT LOAD SUBROUTINE PLACES THE SPECIFIED 

2443 * FLOATING FOINT OPERAND IN THE FLOATING POINT ACCUMULATOR. 
244k * 

2445 * ENTRY POINT 

24UuUG * LOD 

2447 * 

2448 * ENTRY CONUCITIONS 

2449 * H REGISTER = 6 MS BITS OF OPFRAND ADORESS 

24u&0 * L REGISTER = LS 8 BITS OF OPFRAND ADDRESS 

uel * 

2uE2 * EXIT CONDITIONS 

24s * CONTKOL BITS SET AS DEFINED FOR THE SYSTEM 

Puey * A REGISTER = ACCUMULATOR EXPONENT ©1576 Processor-Technology-Corporation 
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PREE * C REGISTER = ACCUMULATOR 2ND FRACTION 
2427 * O REGISTER = ACCUMULATCR 3RN FRACTION 
2uEB * 
aut * REGISTERS ALTERFO 
2uE0 * ALL 
24k * : 
2uUEO # MAXIMUM SUBROUTINE LEVELS USED 
PuES 1 
PuEY * 
PRES * 
PnEG * FLOATING FULNT ADD SUBROUTINE 
2ut7 * 
2uE8B * THE FLOATING POINT ADD SUBROUTINE ANOS THE SPECIFIED 
Pues * FLOATING FOINT OPERAND TO THE VALUE IN THE FLOATING POINT 
2470 * ACCUMULATOR AND PLACES THE SUM IN THE FLOATING POINT 
Purl * ACCUMULATCR. 
2472 * 
7473 * ENTRY POILT 
2474 * ADO 
2u7s * 
2476 * ENTRY CONLITIONS 
2u77 * H REGISTER = MS 6 BITS OF OPFRAND ADORESS 
2u78 * L REGISTER = LS 8 BITS OF OPFRAND ADDRESS 
2479 * 
ued * EXIT CONDITIONS 
PurY * IF OVERFLOW 
PuPS * LOCATION -OVER= SET NON=Z2FRO 
Pues * IF NG UVERFLOW 
Due * CONTKOL BITS SET AS VLEFINED FOR THE SYSTEM 
2485 * A REGISTER = ACCUMULATOR FXPONENT 
2uFE * B 8cGISTER = ACCUMULATOR SIGN AND 1ST FRACTION 
PuRn7 * C REGISTER = ACCUMULATOR 2NN FRACTION 
2uF8 * D REGISTER = ACCUMULATOR 3RN FRACTION 
24ng * E REGISTER = SIGNIFICANCE INDEX 
2460 S 
uci -* REGISTERS, ALTERFN 
PuC? a ALL 
2uc3 * 
Puch * MAXIMUM SUSROUTINES LEVLES USED 
acs * 2 
2466 ‘ * 
2uc7? * ; 
2uc8 * FLOATING FOINT SUBTRACT SUBROUTINE 
24uc9 * 
2200 * THE FLOATING POINT SUBTRACT SUBROUTINE SUBTRACTS THE SPECIFIEO 
PSCi * FLOATING FOintT OPERAND FROM THE VALUE IN THE FLOATING POINT 
2502 * ACCUMULATUK AND PLACES THE OIFFERENCE IN THE FLOATING POINT 
25n3 * ACCUMULATOR, 
agey * 
P55 * ENTRY POINT 
BerE * SUB 
2507 * 
258 * ENTRY CONLCITIONS MO | 
DERG * H REGISTER = MS 6 BITS OF OPFRANND ANDRESS ©1976 Processor-Technology-Corporation 
2210 * L REGasTeR = LS 8 BITS OF OPFRAND ADORESS PRINTED IN U.S.A. 
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Ning LUL UBVECT COVE SOURCE STATEMENT 

2511 * 

P5412 * EXIT CONDITIONS 

2513 * CONTKOL BITS SET AS DEFINED FOR THF SYSTEM 

2574 * IF OVERFLOW 

2575 * LCLATION -OVER= SET NONZERO 

2246 * IF NO UVERFLOW 

2517 * A REGISTER = ACCUMULATOR FXPONENT 

2578 * B RtGISTFR = ACCUMULATOR SIGN AND 1ST FRACTION 
2513 * C REGISTER = ACCUMULATOR 2NN FRACTICN 

2520 * D REGISTER = ACCUMULATOR 3RN FRACTION 

2521 * E REGISTER = SIGNIFICANCE INDEX 

Pace * 

2523 * REGISTERS ALTERFD 

2524 * ALL 

2525 * 

25c6 * MAXIMUM SUBROUTINE LEVLES USED 

25o7 * 2 

2528 * 

2529 * 

2520 * FLOATING POINT MULTIPLY SUBROUTINE 

2521 * 

PR22 * THE FLOATING POINT MULTIPLY SUBROUTINE MULTIPLIES THE 
2523 * SPECIFIED FLOATING POINT OPERAND RY THE ValUF IN THE FLOATING 
Dery ° * POINT ACCUMULATOR AND PLACES THE PRODUCT IN THE FLOATING 
2525 * POINT ACCUMULATOR, 

2526 * 

2527 * ENTRY POINT 

2528 * MUL 

2529 * 7 

2540 * ENTRY CONLITIONS 

25ul * H REGISTER = mS 6 BITS OF OPFRAND AOORESS 

25u2 * L REGASTER = LS 8 BITS OF OPFRAND ADDRESS 

2543 Pe : 

25u4 * EXIT CONDITIONS 

2545 * CONTROL BITs SET As UEFINED FOR THE SYSTEM 

2546 * IF OVERFLOW 

2547 * LOCATION -OVER= SET .NONZERO 

2548 * IF NG OVERFLOW 

2549 * A REGISTER = ACCUMULATOR FXPONENT 

25¢0 * B RcGISTER = ACCUMULATOR SIGN AND 1ST FRACTION 
25%] * C RcGISTER = ACCUMULATOR 2NN FRACTION 

25°2 * D REGISTER = ACCUMULATCR 3RN FRACTION 

Ze S * 

P5e4 * REGISTERS ALTERFD 

a5e5 * ALL. 

25e6 x 

25¢°7 * MAXIMUM SUBROUTINE LFVELS USEN 

A558 * 2 : 

2529 * 

25€0 * 

PREY * FLOATING PUANT NIVIDE SUBROUTINE) 

PEED * 

2sé3 * THE FLOATING POTNT DIVIDE SUBROUTINE OIVIOES THE SPECIFIEN 
PeeY * FLOATING FULNT OPERAND INTO THE VALUF IN THE FLOATING POINT ©197§ ProcessorTechnology-Corporation 
PeE5 * 


ACCUMULATOR AND PLACFS THE QUOTIFNT IN THE FLOATING POINT PRINTED IN U.S.A. 
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STVNT LOC OBJECT CODE SOURCE STATEMENT 

PREG * ACCUMULATCR. 

PSE7 * 

25€8 * ENTRY POINT 

2569 x DIV 

2576 * 

2571 * ENTRY CONLITIONS 

A572 * H REGISTER = MS 6 BITS OF OPFRAND ADDRESS 

2573 * tL REGISTER = LS 8 BITS OF OPFRAND AODRESS 

2574 * 

96575 * EXIT CONDITIONS 

2576 * CONTROL BITS SET AS VEFINED FOR THE SYSTEM 

2577 | * IF OVERFLOW 

Pa78 * LOCATION -OVER= SET NON#ZFRO 

2579 * IF NU UVERFLOW 

2crg * A ReGISTER = ACCUMULATOR EXPONENT 

PSPL * B REGISTER = ACCUMULATOR SIGN ANDO 1ST FRACTION 
Jag? * C REGISTER = ACCUMULATOR 2NN FRACTICN 

P&23 * D REGISTER = ACCUMULATOR 3RN TRACTION 

PRL ok 

2ee5 * REGISTERS ALTERED 

265e6 * ALL 

2527 * 

2528 * MAXIMUM SUBROUTINE LEVELS USED 

PRED * 2 

25¢0 5 

25¢1 * 

25¢2 * FLOATING FOINT ABSOLUTE SUBROUTINE 

acs * 

25¢4 * THE FLOATING POINT ABSOLUTE SUBROUTINE SETS THE SIGN OF THE 
25¢5 * VALUE IN THe FLOATING POINT ACCUMULATOR POSITIVE. 
25¢6 * 

25C7 * ENTRY POINT 

2e¢8 * ABS 

RCS * 

2600 * ENTRY CONLITIONS 

2601 * NONE 

PEC? © * 

2603 * EXIT CONDITAONS 

Peru * CONTKUL BITS SET AS ULEFINED FOR THF SYSTEM 

245 * A REGISTER = ACCUMULATOR EXPONENT 

PERCE * B ReGISTER = ACCUMULATOR SIGN AND 1ST FRACTION 
2607 * C REGISTER = ACCUMULATGR ONN FRACTION 

2608 * D REGISTER = ACCUMULATOR 3RN FRACTICN 

7609 * E REGISTER = SIGNIFICANCE INOEXe IF THE PREVIOUS 
2610 * OPERATION WAS AN ADN OR SURTRACT 
2611 * : 

Ph42 * REGISTERS ALTERFD 

24143 * ALL 

7674 * 

2615 * MAXIMUM SUSROUTINE LEVELS USED 

PATE * 0 

PA47 

2648 * ©1976 ProcessorTechnology-Corporation 
244993 * FLOATING FOLNT .7FRO SUBROUTINE PRINTED IN U.S.A. | 
P6720 * 
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“STH#nT ~~ Loc | OBJECT CODE ~ | SOURCE STATEMENT ~ : =e ° 
2621 * THE FLOATING POINT 2Z2FRO SUBROUTINE PLACES THE VALUE ZERO IN 
2472 * THE FLOATING POINT ACCUMULATOR. 
2623 * . 
2624 * ENTRY POINT 
2425 * ZRO 
2626 * 
2627 * ENTRY CONLITIONS 
2628 * NONE 
2629 * 
2620 * EXIT CONDITIONS 
PH21 * ats BITS SET AS UEFINED FOR THE SYSTEM 
2622 * REGISTER = ACCUMULATOR FXPONENT 
26133 * : REGISTER = ACCUMULATOR SIGN AND 1ST FRACTION 
DA2u * C RcGISTER = ACCUMULATOR 2NN FRACTION 
72625 * D REGISTER = ACCUMULATOR 3RN FRACTION 
2626 * 
2627 * REGISTERS ALTERFO 
2428 * ActHel | 
2629 * 
2640 * MAXIMUM SUBROUTINE LEVELS USED 
2641 * 0 
P2642 * 
2643 * 
DBuU4 * FLOATING FOINT TeST SUBROUTINE 
2645 * 
P2646 * THE FLOATING POTNT TEST SUBROUTINE 1 OADS THE VALUE IN THE 
26u7 * FLOATING POINT ACCUMULATOR INTC THE REGISTERS AND SETS THE 
2448 x ZERO AND SIGN CONTROL BITS TO INNICATE THE CORRESPONDING 
FEK9: * ATTRIBUTES oF THE VALUE. 
2650 * ENTRY POINT 
P61 * TST 
24°92 x 
2623 * ENTRY CONULTIONS 
2654 * NONE 
PEES5 * 
PREG * EXIT CONDITIONS : 
2687 * CONTROL. BITS SET AS DEFINED FOR THE SYSTEM 
2688 * A REGISTER = ACCUMULATOR FXPONENT 
2HEQ pa B ReGISTER = ACCUMULATOR SIGN AND 18T FRACTION 
PEED * C RcGISTER = ACCUMULATOR 2NN FRACTION 
2661 * " D KcGISTER = ACCUMULATOR 3PM FRACTION 
2662 * E REGISTER = SIGNIFICANCE INNExe. IF THE PREVIOUS 
PRES * OPERATION WAS AN ADN OR SURTRACT 
26¢€4 3 
26E5 : * REGISTERS roe 
P6EE * ALL 
2667 * 
2668 * MAXIMUM SUSKOQUTINE LEVELS USED 
PARES * 0 
PET ® | 
2672 | * FLOATING FOINT COMPLFMENT SUBRGUTING 
2673 * 
PETTY * THE FLOATING POINT COMPLEMENT SURROUTINE CHANGES THE ©1976 Processor-lechnology-Corporation 
2675 * ARITHMETIC SIGN OF THE VALUE IN THE FLOATING POINT PRINTED. IN U.S.A. 
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STHWNT 


2676 
2677 
2£78 
2479 
2680 
PEEL 
2682 


PES. 


Peeu 
2685 
P6E6 


PRET - 


PEER 
26e9 
26£¢95 


Peel: 


PKt2 
eae3 
2604 
26¢5 
24°06 
2407 


OBJECT CODE 


NRHN HHH HHH HEHEHE HE HH HH 


A FOCAL INTERPRETER FOR THE 8080 


SOURCE STATEMENT 


ACCUMULATOR. 
ENTRY POINT 
CHS 


ENTRY CONLITIONS 
NONE 


EXIT CONDITIONS 
CONTKOL BITS SET AS DEFINED 


A ReGISTER -= ACCUMULATOR 
B R&GISTER = ACCUMULATOR 
C ReGISTER = ACCUMULATOR 
O ReGISTER = ACCUMULATOR 


PAGE $1 


FOR THE SYSTEM 
FXPONENT 

SIGN AND 1ST FRACTION 
OND FRACTION 

3RN FRACTION 


E REGISTER = SIGNIFICANCE INNExXe IF THE PREVIOUS 
OPERATIGN WAS AN ADN OR SUBTRACT 


REGISTERS ALTERED 
ALL | 


MAXIMUM SUBROUTINE LEVELS USED 
0 


©1976 Processor Technology-Corporation 
PRINTED IN U.S.A. 
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26¢9 OFB4 . ' ARITH3 EQ@u ¢ 

2770 OOOF ARTHBs EGu . <ARITH 

2701 : 8008 BINARY FLOATING POINT SYSTEM 

2772 : 

2773 : MODIFIEO FOR 8080 FALL 1975 

2704 : 

27¢5 : ARITHMETIC AND UTILITY PACKAGE 

2776 : PROGRAMMMER: CAL OHME 

2707 ; SUPPLIED FROM INTEL'S USER LIRRARY 

2778 : DATE 26 DECEMBER 1973 

2779 : ARITH 1S THF BEGGINING ADDRESS oF THE 

2710 ; ARITHMETIC AND UTILITY PACKAGE OF THE FLOATING 
2741 : POINT SYSTEM, 

2712 ; SCR IS THE BEGINNING ADORESS OF THE 

2713 ; RAM USEU AS SCRATCHPAL FOR THE SYSTEM 

2714 : THE RAM MULTIPLY AND DIVIDE SUBROUTINES 

2715 : ARE MCVED FROM ROM TO RAM BY SURROUTINE 

2716 ; INIT ANO ARF EXECUTED IN RAM ONLY. 

27147 : RAM MULTIPLY SUBROUTINE. 

2718 3 INIT SUSROUTINE ENTRY POINT 

2749 OFBY INITS EGU ae 

2720 : 

2721 ; 

2722 : STR SUBROUTINE ENTRY POINT 

2723 OFBS 73 STRO? MGV Mok :STORE ZEROETH WORD 

2724 OFBS 2c INR L 3TO ADNRESS FIRST WORD 
2725 OF BG 77 STR: MOyv Meh 7STORE FIRST WORD 

2726. OFB7 20 2% .° mg yer STRis INR 7TO ADDRESS SECOND WORD. 
ayo7 ores 70 MOV MeB s;STORE SECOND WORD 
2728 OFB9 2c 25> IWKH INR UL :TO ADDRESS THIRD WORD 
2799 —OFBA - FL MOY Met $TO STORE THIRD WORD 
2720 OFBB 2c. 24 IN XH INR L 3TO ADDRESS FOURTH WORD 
P7321 OFBC 72 MGV MeO sSTORE FOURTH WORD 

2722 - OFBD C9 RET sRETURN TO CALLER 

2723 3 : FLOATING POINT ZERO SUBROUTINE FNT. PNT. 

P7RY OF BE 26° «600 ZRO! mMV1 ~H,SCRB 3TO ADORESS SCRATCH BANK 
2725 OFCO 2— 635 ZROi: MV1 “Le ACTE 3TO ADDR aCCUM EXPONENT 
2736 OFC2 AF XRA A. {ZERO 

2727 OFC3 77 MOY MeA ;CLEAR ACCUMULATOR EXPONENT 
2728 OFC4 C9 > RET ;sRETURN TO CALLER 

2729 . ; FLOATING POINT CHS SUBROUTINE EMT. PNT. 

2740 OFCS 3E 6390 CHS? MVI Aw2000 sMASK FOR SIGN BIT 

2741 OFC? 06 Db 0060 ?;LBI INST To SKIP NEXT wO 
2742 ; FLOATING POINT ASS SUBROUTINE ENT. PNT. 

2743 OFCS AF ABS: XKA A +ZERO 

2744 oFCS 26 00 MV 1 HeSCRB 3TO ADNRESS SCRATCH RANK 
2745 OFCB 2— 8636 7 MV1 LeACCS ;TO ADORESS ACCUM SIGN 
2746 OFCD AG ANA M ;COMPLEMENT OF SIGN 

27u7 OFCE FE 80 XRI 2000 ;COMPLEMENT THE SIGN BIT 
2748 OFDO 77 MOV . Mea tACCUMALOTOR SIGN 

2743 : FLOATING POINT TEST ENTRY POINT. 

2720 OFDI 26 00 TST? MV1  HeSCRB ° TO ADDRESS SCRATCH BANK 
2781 OFD3 2— 35 TST13 MV1 -L,ACCE 3TO ADDR ACCUM EXPONENT 
27"2 OFDS5 7E : . MOV » Rom sACCUMUL ATOR EXPONENT : loav-Corporation 
O7a% OFD6 A7 ANA i A ;SET CONTROL BITS ©1976 ProcessorTechnology-Corporat 
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ened XASM 
STYNT 


27Ee4 
2785 
27e6 
2787 
27°8 
2729 
27€0 
PATEL 
27£2 
27£3 
PTES 
2765 
27EG 
27¢7 
O7E8 
ATES 
2770 
2771 
2792 
2773 
2774 
2775 
P2776 
2777 
2778 
2779 
a7EO 
27e1 
e782 
2783 
27ey © 
S7ES 
2786 
P7iT 
2788 
2789 
2760 
a7ei 
2752 
2753 


2754 


2765 
2756 
2757 
2758 
27¢95 
?8C0 
2201 
2ace2 
ert3 
284 
2205 
2RCE 
2ao7 
2808 


A FOCAL INTERPRETER FOR THE 8080 


LOC OBJECT CODE SOURCE STATEMENT 
OFD? CA BE OF JZ ZRO 3IF ACCUMALOTOR IS ZERO 
OFDA SF MOV FA tACCUM FXPONENT 
OFDB 2c INR L 7TO ADOR ACCUM SIGN 
OFDC 7E MOV AyM sACCUM SIGN 
OFOD 2c INR L TO ADOR ACCUM 1ST FRACTION 
OFDE AE XRA M sACCUM SIGN AND 1ST FRACTION 
OF DF 2c INR L 3TO ADDR ACCUM 2ND FRACTION 
OFEO KE MOV CoM sACCUMULATOR 2ND FRACTION 
OFEL 2C INR L ?TO ADOR ACCUM 3RD FRACTION 
OFE2 56 | MOv Nem ACCUM 3ROD FRACTION 
OFE3 C3 F2 10 JUMP’ ADD12 TO SET EXIT CONDITIONS 
: FLOATING POTNT LOAD ENTRY POINT 
OFES TE LOO MOV AeM sOPERAND FXKPONENT 
OFE7 . A7 ANA K 3SET CONTROL FLAGS 
OFE8 CA BE .OF Jz ZRG ;IF OPERAND IS ZERO 
OFEB 5F MGV FeA sOPERAND FXPONENT 
OFEC 2C-2% wr H INR L 3TO ADOR OP SIGN AND 1ST 
OFED MOV AeM ;OPERANN SIGN AND 1ST OIGIT 
OFEE 20-24 rere INR L 3TO ADDRESS OPERAND 2ND DIGIT 
OFEF 4E " MOV CoM sOPERAND 2ND FRACTION 
OFFO 2C 2%> iw H_ INR L 3TO ADDRESS OPERAND 3RD FRACTION 
OFF1 56 MGy DeM sOPERAND 23RD FRACTION 
: STORE THE OPERAND IN THE ACCUMULATOR 
OFF2 6F MOV LeA ;OPERAND SIGN AND 1ST FRACTION 
OFFS FE 80 LOD1: Oh1 2000 sACCUMULATOR 1ST FRACTION 
OFFS . U7? MOV BoA tACCUM 1ST FRACTIN 
OFF6 AO XRA L :ACCUM SIGN 
OFF 7 26 00 MVI HeSCRB ;TO ADDRESS SCRATCH BANK 
OFFS 2— 35 MVI LeACCE 3TO ADOR ACCUM EXPONFNT 
OFFS CD BY OF CALL STRO $SET THE ACCUM 
OFFE AB XRA B sACCUM SIGN AND 1ST FRACTION 
; SET CONTROL BITS AND EXIT 
OFFF 4&7 MOV BoA sACCUM SIGN AND iST FRACTION 
1000 FE O12 OR] 1 3SET SIGN BIT FOR EXIT 
1002 7B MOV AcE ,ACCUM EXPONENT 
1003 C9 RET sRETURN TO CALLER 
; FLOATING POTNT MUL SUBROUTINE: ENTRY POINT. 
1004 7E MUL $. MUy AeM sOPERANND FYXPONENT 
1005 A7 ANA A 3SET CONTROL FLAG 
1006 C4 oD i1 CN2 MDEX sREAD OPERAND IF NOT ZERO 
10093 CA BE OF Jd ZRO 3IF ZERO OR UNDERFLOW 
1O0C DA 42 10 JC OVERF 7IF OVERFLOW 
100F cO cS 11 CALL MULX sCALL FIXED MULT SUBRTN 
: NORMALIZE IF NECESSARY 
1012 78 MGV AeB 21ST PROOUCT 
1013 A7 ANA A 3SET CONROL BITS 
1014 FA 21 10 JM RNDA 3IF NO NORMALIZATION REQUIRED 
1017 2— 35 MVI LeACCE 3;TO ADOR ACCUM EXPONENT 
1019 TE | MGV AeM ACCUM FXPONENT © 
101A DE ol S61 1 tDECREMENT ACCUM EXPONENT 
101C 77 MOV Meo sACCUM EXPONENT 
1010 C8 RZ tRETURN TO CALLER IF UNDERFLOW 
1G1E CD 34 11 CALL LSH - §CALL LEFT SHIFT SUBROUTINE 
H ROUND IF NECESSARY. 
1021 cD aS ii RNDAS CALL ROND sCALL ROUNDING SUBROUTINE PRINTED iN U.S.A. 
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2309 
2819 
PRY1 
PRC 
2343 
2214 
~ 2895 
2296 
2207 
2818 
2819 
2820 
2221 
2222 
PROB 
eROu 
2225 
2826 
2227 
2838 
2829 
2820" 
2871 
7A%2 
PRA 
2R24. 
2A25 
2526 
2R27 
2228 
2829 
2840 
PRYL 
PRU] 
2443 
PAU 
78uU5 
PREG 
22u7 
PRB 
PRUD 
2REQ 
gna} 
PRR 
Paes 
PREY 
2Ra5 
2REG 
PRET 
28e8 
2R89 
PRED 
PRED 
2ReQ 
7863 
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LULL ~UBJECISCUUL ~~ QSUURCE SIATCRELNI 
1024 DA 42 i10 JC OVERFE sIF OVERFt OW 
1027 a7. MOY BeA ACCUM SIGN AND LST FRACTION 
1028 F6 O1 OR] i :SET SIGN BIT 
102A 78 MOV Aek sACCUM EXPOENT 
102B C9 RET : + sRETURN Ton CALLER 
: FLOATING POINT DIV SUBROUTINE ENTRY POINT. 
102C AF DIv: XKA A 3ZERO | 
1920 96 SUS M ;COMPLEMENT OF DIVISOR EXPONENT 
1O2E FE O12 CPI 1 :SET CARRY IF DIVISION BY ZERO 
1030 04 oD 11 CNC MODEX sREAD OPERNAD IF NOT ZERO . 
1033 DA 42 10 JC OVERE 7IF OVERFLOW OR ODIVISOON BY ZERO 
1036 CA CO OF JZ 7RO1 ;IF UNOERFLOW 
1039 . GF MOV CoA sOIVISOR 1ST FRACTION 
103A CD 08 i12 CALL DIVX ,CALL FIXFD DIV SUBRTN 
103D 26 C0 MV1 H»SCRB TO ADOR SCRATCH BANK 
103F DA 21 10 JC RNDA :IF NO UNNDERFLOW 
; : SET OVERFLOW FLAG 
1042 26 00 OVERF S$ MVI HeSCRB TO ADDR sCRATCH BANK 
1044 2— 0 «(33 MV1 LeOVER TO ADDR AVERFLOW FLAG 
1046 3E OFF MV1 Ae3770 SOVERFLOW FLAG 
1048 77 MOV MeA SOVERFLOW FLAG 
1049 07 RL 3;SET CARRY BIT FOR EXIT 
104A cg RET sRETURN Ton CALLER 
1048 , . 00 DB 0 tCHECK SUM WORD 
; FLOATING PornNT SUB SUBROUTINE ENTRY POINT 
104C 3E 680 SB3 MV1 A+2000 MASK TO CHANGE OP SIGN 
1O4E 06 : DL 0060 3LBI INST TO SKIP NEXT wD 
; FLOATING POTNT ADO SUBROUTINE ENTRY POINT 
104F AF AD: XKA A 7ZERO 
: LOAD THE OPERAND 
1050 5£ MOV feo sOPERANN FXPONENT 
1051 2c we ef INR L .$TO ADDR OP SIGN 18ST FRACTION 
1052 . AE XRA M ,OPERAND SIGN ANDO 1ST FRACTION 
1053 U7 MOV Beal ;OPERAND SIGN AND 1ST FRACTION 
1054 2c th x(t INR L 3TO ADOR OPFRAND OND 
1055 GE MOy CoM ~3OPERAND OND DIGIT 
1056 2c mete IWR $TO ADOR OPFRAND 3RD FRACTION 
1057 56 MCV DeM ;OPERAND 3RD FRACTION 
: SAVE INITIAL EXPONENT 
1058 26 00 MVI HeSCRB TO ADOR sCRATCH PAD 
- 105A 2— «35 MV1 Le ACCE TO ADOR ACCUM EXPONENT 
105C TE MUV AM SACCUMALOTR EXPONENT 
1050 2D ex 4 DCR L TO ADOR INITIAL EXPONENT 
1O5E 77 MOy MeA tINITIAL FYXPONENT 
; CHECK FOR ZERO OpERAND 
105F 78 MOY AvE ;OPERANND FXPONENT 
1060 A7 ANA A ;SET CONTROL BITS 
1061 CA D3 OF JZ TST1 3IF OPERAND IS ZERO 
; GENERATE SURTRACTION FLAGe RESTORE 
: SUPPRESSED FRACTION BIT 
1064 68 MOY mS SOPERAND SIGN AND FIRST FRACTION 
1065 78 MOV A+B ,OPERAND SIGN ANO FIRST FRACTION 
1066 FE 80 OK] 2000 ,OPERAND 1ST FRACTION 
1068 47 MGV Bea ,OPERAND 1ST FRACTION 
1069 AD XKA L ,OPERANO SIGN 
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STYNT LOC OBVECT CODE SOURCE STATEMENT 

PREY 106A 2E 36 MVI LeACCS 3TO ADOR ACCUM SIGN 

2265 106C AE XhA M s;SUBTRACTION FLAG 

28€6 1060 2E «603A MV1 L+«SF . $TO ADOR SUBRRACTION FLAG 
2RE7 106F 77 MOV so Ma A ;SUBTRACTION FLAG 

28E8 ; DETERMINE RFLATIVE MAGNITUDES OF 

2469 : OPERAND AND ACCUM 

2870 1070 2—E 35 Mvd LeACCE 7T0 ADOR ACCUM EXPONENT 

2871 1072 7E MOUV Neff sACCUM EXPONENT 

2872 1073 AT | - AWA A 3SET CONTROL BITS 

287% 1074 CA FE 10 Jz ADD17 :IF ACCUM IS ZERO 

2874 — 1077 93 SUB E ;DIFFEREFNCE IN EXPONENTS 
2875 1078 CA 86 10 JC AOD2 71F ACCUM SMALLER THAN OP 
2276 : CHECK FOR INSIGNIFICANT OPERANO 

2877 1078 © FA 03 OF UM TSTl {IF OPFRAND IS INSIGNIFICANT 
2878 107E FE 19 CFI 0310 s;COMPARE SHIFT COUNT TO 25 
2879 1980 ~~ DA A5 10 Jc ADDS :JOIN EACH PATH IF OP SIGNIF 
28eo 1083 C3 p03 OF JMP TST1 sOPERANN TS INSIGNIFICANT 
2881 : CHECK FUR INSIGNIFICANT ACCUMULATOR 

22E0 1086 Fe FE 10 ADC2: JF ADD17 ;IF ACCUM IS INSIGNIFICANT 
2883 1089 FE ET CI 3470 COMPARE SHIFT COUNT TO MINUS 25 
2AaRY 109éB DA FE 10 JC A0OD17 tIF ACCUM YS INSIGNIFICANT - 
Ras 108E 73 Muy Mek sOPERAND FXPONENT 

2A8a6 108F ee MOV EA sSHIFT COUNT 

2887 1090 2— 3A MV1 LeSF 3TO ADORESS THE SUBTRACTION FLAG 
228 1092 7E MOV AeM sSUBTRACTION FLAG 

2Reg 1093 2— 636 MV1 L»ACCS TO ADDR THF ACCUM SIGN 

2aS0 1095 AE XRA M SOPERAND SIGN 

Pee] 1096 «77 — MUV MoA tACCUM SIGN 

2852 1097 AF | XKA A tZERO 

2ac3 1038 93 SUB E COMPLEMENT SHIFT OUNT 

pacy , : EXCHANGE ACCUMULATOR AND OPERANN 

ORES 1099 2c It.R L 7TO ADNR ACCUM 1ST FRACTION 
2acG 109A SE MOY Fem tACCUM 1ST FRACTION 

Ono7 1098 70 MOY MmeB sOPERAND 1ST FRACTION 

2AS8 109C 43 MOV Bek ACCUM 1ST FRACTION 

2arecg 109D_ 2C | INR L ?TO ADDR OND FRACTION 

2900 109£ 5E 5 ad MGy EM sACCUMULATOR 2ND FRACTION 
2eCl 109F 71 MOV “ MeC ;OPERAND 2ND FRACTION 

29C?2 10A0 4B MOV CeE sACCUM OND FRACTION 

2903 10Al 2c INR L 7TO ADDR aCCuM 3RO FRACTION 
2904 10A2 5E MOV EeM sACCUM 3RN FRACTION 

2905 10A3 72 - MOV Med ,OPERAND 3RD FRACTION 

2906 10A4 53 MOV Dee sACCUM 3RN FRACTION 

2907 : POSITION THF OPERAND 

2908 10A5 CO 41 11 ADD3: CALL RSH ;POSITION THE OPERAND 

2909 10A8 2— «603A MV1 Le SF TO ADNR SURTRACTION FLAG 
2970 10AA 7E NGy Ay s;SUBTRACTYCN FLAG 

2971 10A8 A7 ANA A SSET CONTROL BITS 

A992 | 10AC 2e—E 39 MVd L»ACC3 :TO ADOR ACCUM 3RD FRACTION 
2933 LOAE FA D5 10 JM ADDS 2I1F SURTRACTION REQUTTREL 
2974 : ADD ALDEND to AUGEND 

2945 1081 7E MOV AeM sAUGENO 3RD FRACTION 

2916 10B2 82 ALD 3) sAUGNEO 3RO FRACTIN | 
2947 1083 57 MOY DeA $SUM 3RN FRACTION ©1976 Processor-Technology-Corporation 
2918 1084 2D DCR L 3TO ADDR AUGEND 2ND FRACTION PRINTED IN U.S.A. 


BNf0 XASM A FOCAL INTERPRETER FOR THE 8080 : 7 PAGE 56 


CTT Loc OPYECT CODE SOURCE STATEMENT 
2919 1085 7L My AeM ° tAUGNED 2ND FRACTION 
2920 — 1086 &9 ALL C :ADNEND 2N0 FRACTION 
2921 1087 yf MGV  CeA :SUM 2NN FRACTION 
2922 1088 20 DCR L TO ADDR AUGNNO 1ST FRACTION 
2923 1089 . RE MUy AeM s,AUGEND 15ST FRACTION 
2924 1OBA 88 ALL B s;ADDEND 1ST FRACTION 
2925 1088 47 MGV  BlA $SUM 1ST FRACTION 
2926 1OPC b2 eC 10 JHC ADDL1 7IF NO CARRY FROM 1ST DIGIT 
2997 : RIGHT SHIFT SUM TO NORMALIZED POISITION 
2928 108F 1F RAR SRIGHT SHIFT SUM 12ST DIGIT 
2929 10c0 47 MUV Bed $SUM 1ST FRACTION 
2920 10C1 79 MOV A-c :SUM 2NN FRACTION 
297} 10C2 1F : RAR sRIGHT SHTFT SUM 2NN DIGIT 
29%x2 VOCS ue Muy CeA 1SUM 2@NN FRACTIOM 
2933 10C4 7A Muy AsD SUM 3RN FRATION 
2974 10C5 1F RAR ,3RIGHT SHIFT SUM 3RD FRACTION 
2975 10C6 57 MOV DeA ;SUM 3RN FRACTION 
2976 10C7 1F RAR t4YTH FRACTION=LOW RIT OF 3RD 
2927 10C8 SF MUV F+A tSUM 4TH FRACTION 
2928 10¢93 2— 35) MV 1 Le ACCE 3TO ADORESS ACCUM EXPONENT 
29239 10CB 7E MGV AwM SACCUM EXPONENT 
2940 1occ C6 gil ALL 1 tsINCREMFNT ACCUM EXPONENT 
' 29u1 10CE DA 42 10 JC OVERF ;IF OVERVI OW 
2942 1001 77 MOV MeA tACCUM EXPONENT 
2943 | 1002 C3 EC i10 JMP ADDI1 3TO ROUNO FRACTION 
2944 . : SUBTRACT SURTRAHEND VROM MINUFNND 
2945 1005 AF ADDS: XKA A SMINUEND 4TH FRACTION IS ZERO 
29u6 1006 93 | Su3 £ ;SUBTRAHEND 4TH FRACTION 
2947 1007 SF MOy EeA SDIFFERENCE 41H FRACTION 
2348 1008 7E MOV NeM tMINUEND 3RD FRACTION 
2949 1009 oA SbB D ;SUBTRAHEND 3RD FRACTION 
2980 10DA 57 " MOV DeA ,OIFFERENCE 3RO FRACTION 
2gel 10DB8 2D OCR L +TO ADDRESS MINUEND OND FRACTION 
2982 100C 7E MOV AM sMINUEND 2NO FRACTION | 
29«3 1000 99 S638 Cc $SUBTRAHEND oND FRACTION 
2ge4 LODE uF MOV CerA tOIFFERENCE 2NnD FRACTION 
2985 100F 20 DCR L ~  $TO ADDRESS MINUEND' 1ST FRACTION 
2986 1060 7E MOV AeM sMINUEND 2ST FRACTION 
2987 10E1 98 SbB8 B tSUBTRAHEND 4ST FRACTION 
2928 10E2 47 MUY BoA s;OIFFERENCE 1ST FRACTION 
2969 10E3 DC 67 ii A00D103 CC cCOmP tCOMPLEMENT IF NEGATIVE 
29¢0 1066 F4 7A 11 CP NORM sNORMALIZFE IF NECESSARY 
29¢€1 10£9 F2 cO OF JP ZROL ,IF UNDERFELOW OR ZERO 
29€2 10EC CD Am 11 AO0D113 CALL ROND S;CALL ROUNDING ROUTINE 
ec¢e3 1OEF DA 42 10 JC OVERF sIF OVERFLOW 
29¢4 10F2 U7 A0D12$ MOV. Bel sACCUM SIGN ANO 1ST FRACTION 
29¢5 10F3 2E 34 MV 1 L ePREX  $TO ADNMRESS PREV EXPONENT 
27St&6 1OF5 7B MGV AoE sACCUM EXPONENT 
29¢€7 10F6 96 SU3 M sDIFFERENCE IN EXPONENTS 
2c¢€8 10F7 6F MOv LA s;OIFFEREFNCE IN EXPONENTS 
29¢9 160F8 78 MUY AoB tACCUM SIGN AND 1ST FRACTION 
2970 10F9 FE O11 ORI 1 SET SIGN BIT FOR EXIT 
2371 10FB 7B MOV AcE sACCUMULATOR EXPONENT 
2972 1OFC 5D | MOV Fal sSSIGNIFICANCE INDEX ©1976 Processor-Technology-Corporation 


2973 10FD co | RET | tRETURN TO CALLER PRINTED IN U.S.A. 
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2920 XASM PAGE 57 - 


STWNT LOC OBJECT CODE SOURCE STATEMENT 

2974 ; LOAD THE ACCUMULATOR WITH THE OPERAND 

2975 10FE 2—E «3A A0D173 MV1 L+SF :TO ADDR SURTRACTION FLAG 

2976 1100 7E MOY AeM sSUBTRACTTON FLAG 

2977 1101 2E 636 MV1 LeACCS $TO ADDR ACCUMULATOR SIGN 

2998 1103 AE XK A M SOPERAND SIGN 

2979 1104 20 OCR L :TO ADOR ACCUM EXPONENT 

2300 1105 CD 6B4)tCOOF CALL STRO ?SET THF aACUM 

2981. 1108 AB | XKA B tACCUM SIGN ANO FIRST FRACTION 
2982 1109 C3 Fe 10 JMP A0D12 ;JOIN EXIT CODE 

2923 110C 00 DE 0 ;CHECKSUM WORD 

29n4 ; SUBROUTINE TO READ THE OPERAND AND 

29e5. : CHECK THE ACCUMULATOR EXPONENT 

296 - 1100 47 MDEXS MOV BeA SEXPONENT MIDIFIER | 

29527 110E 2C€ we INR L ;TO ACOR NP SIGNe 1ST FRACTION 
2928 110F 4E MOV CoM ,OPERAND SIGN AND 1ST FRACTION 
2909. 1110 2c ivn® INR 1 3TO ADDRESS OPERAND 2ND FRACTION 
2969 1111 56 MOV Oem SOPERAND OND FRACTION 

29¢4 1112 2c (we INR L 3TO ADDRESS OPERAND 3RD FRACTION 
29¢2 1113 SE MGy E eM sOPERAND 3RO FRACTION 

29¢3 1114 26 00 MV i HeSCRB 3TO ADDRESS SCRATCH BANK 

29¢4 1116 2—E 4635 MVJ LeACCE 3TO ADORESS ACCUM EXPOENT 

2965 1118 7E MOV AeM sACCUM FXPONENT 

29¢6 1119 A7 ANA A ;SET CONTROL BITS 

29¢7 111A C8 RZ sRETURN IF ACCUM ZERO 

29¢8 1118 80 AUD B tRESULT EXPONENT PLUS BIAS 

29¢9 111C 47 MOy BA :RESULT EXPONENT PLUS BIAS 

3000 1110 iF RAR sCARRY TO SGN 

3001 L11£ A&B XKA B ;CARRY ANN SIGN MUST DIFFER 
3an¢2 111F 78 MGV AeB tRESULT EXPONENT PLUS BIAS 

aNC3 1120 06 80 MV 1 Be2000 sEXP BIAS SIGN MASK MS BIT 

3004 1122 F2 30 11 JF OVUN sIF OVERFIOW OR UNDERFLOW 

30¢5 1125 90 Suz8 B sREMOVE EXESS EXP BIAS 

3NCG6 1126 C8 RZ sRETURN IF UNDERFLOW 

3007 1127 77 MGY Mel sRESULT EXPONENT 

20n8 1128 2c INR L 3TO ADDRESS ACCUMULATOR SIGN 
3009 1129 TE MOV AeM sACCUM SIGN 

3070 112A Ag XKA Cc tRESULT SIGN IN SIGN BIT 

3NG1 1128 AO ANA B tRESULT SIGN 

3n32. 112C , 77 MUV mel sRESULT SIGN 

3943 1120 79 MOV AeC SOPERAND SIGN ANO FIRST FRACTION 
3N14 112£ BO OKA B sOPERAND 1ST FRACTION 

3915 112F C9 RET sRETURN TO CALLER 

3916 1130 07 OVUN? RLC ; tSET CARRY BIT IF OVERFLOW 

3947 1131 D8 RC sRETURN IF OVERFLOW 

3048 1132 AF XRA A 3ZERO 

3919 1133 C9 RET ;RETURN IF UNDERFLOW 

3920 : SUBROUTINE TO LEFT SHIFT THE Be Ce 

Bn21 : De ANC E REGISTERS ONE BIT 

3no2 1134 7B LSH? MUY Ack& SORIGINAL CONTENTS OF E 

ANZ 1135 17 RAL SLEFT SHIET € 

aNoG 1136 SF MOY rel sRESTORE CONTENTS OF E REGISTER 
3ne5 1137 7A LSH1? MOV AeD SORIGINAL CONTNTS OF D REGISTER 
326 1138 17 RAL ; sLEFT SHIET D 

3no7 1139 57 MOV Del SRESTORE CONTENTS OF D REGISTER ONSITE Processor-Technology-Corporation 
3028 113A 79 MOV Asc sORIGINAL CONTENTS OF C REGISTER PRINTED IN U.S.A. 


BAeO0 XASM A FOCAL INTERPRETER FOR THE 8080 | : . PAGE 58 


STWNT Loc OBJECT CODE SOURCE STATEMENT 

3029 1138 i7 RAL tLEFT SHIFT C 

3n20 113C QF MOV. CeA tRESTORE CONTENTS OF C REGISTER 
3nz1 1130 78 Muy A+B sORIGINAL CONTENTS OF B REGISTER 
3972 113E 8F ALC A sLEFT SHIFT B 

4523 113F 4&7 Mov BeA sRESTORE CONTENTS OF B REGISTER 
324 1140 C9 RET tRETURN TO CALLER 

3525 : RIGHT SHIFT THE Bs Ce Oe ANDO F REGISTER 

3N7G ; BY THE SHIFT COUNT IN THE A REGISTER 

RNz7 ; SHIFT OPERAND TO REGISTER INOICATED BY 

3n28 ; SHIFT COUNT 

379 1141 1E 00 RSH? MV1 E.0 sOPERAND 4TH FRACTION IS ZERO 
30u0 1143 2— 6008 RSHOS MV i £20100 SEACH REG IS 8 BITS CF SHIFT 
BNul 1145 BD RSH13 CMP L {COMPARE SHIFT COUNT TO 8 
39u2 12146 FA 52 11 JM. RSH2 tIF REQ SHIFT LESS THAN 6 
29u3 1149 5A MOV &+D sOPERANN 4TH FRACTION 

3nu4 114A _ 51 MOV Oec sOPERAND 3RC FRACTION 

3NuG5 1148 48 MOV CB ;OPERAND oND FRACTION 

BNE 114C 06 O00 MV 1 Be ;CPERAND 1ST FRACTION IS ZRRO 
3947 114E $5 SUB L sREDUCE SHIFT COUNT RY 1 REFG 
3nu8B LIGE c2 48 i1 JN2 RSH1 sIF MORE SHIFTS REWQUIRED 
anu9 ; SHIFT OPERAND RIGHT RY e&SHIFT COUNT= 

3neg ; BITS. | 

Bnet 1152 A7 RSH238 ANA A tSET CONTROL BITS 

3Ne2 1153 c8 RZ sRETURN IF SHIFT COMPLETE 
zNe3 1154 6F MOV LeA tSHIFT COUNT 

Bey 1155 AT RSH33 ANA A sCLEAR CARRY BIT 

ages 1156 78 MOV AB sOPERAND 1ST FRACTION 

BQEG 1157 1F | RAR sRIGHT SHTFT OP 14ST FRACTION 
3Qe7 1158". 47 MOy BeA tTOPERAND 1ST FRACTION 

328 1159 79 MOV Ac sOPERAND OND FRACTION 

30£9 115A LF RAR | tFRIGHT SHIFT OP 2ND FRACTOIN 
39¢€0 1158 uF MOV CeA TOPERAND 2aND FRACTION 

30€1 115C 7A MOV A,0 sOPERAND 23RD FRACTION 

3NE2 115D LF RAR SRIGHT SHIFT Op 3RD FRACTION 
BAER. L15E 57 MOV DA sOPERANOD 23RO FRACTOON 

Bqne4 Li5F 78 MOV AakE TOPERAND &TH FRACTION 

aNE5 1160 1F RAR SRIGHT SHTFT OP 4TH FRACTION 
BNEG 1161 5F MOV EeA ,OPERAND 4uTH FRACTION 

39¢7 1162 20 : DCR L sDECREMFNT SHIFT COUNT 

3nE8 1163 c2 55 11 "INEZ RSH3 ,IF MORE SHIFTS REQUIRED 

3069 1166 C9 RET sRETURN To CALLER 

390 : ~ COMPLEMENT THE Be Ce Oe ANO E REGISTERS 

3071 1167 20 OC% (t comp: DCR L 3T0 ADDR ACCUM SIGN 

B72 . 1168 7E MOV AeM sACCUMAL UTAOR SIGN 

3n73 1169 EE 80 XKi 2000 tCHANGE STGN 

3074 1168 77 MOV MeA sACCUMALATOR SIGN 

3975 116C AF COMP13 XRA A | 3ZERO 

3976 1160 6F MOV LeA :ZERO 

3N7F 116E 93 SLB E ;COMPLEMENT &TH FRACTION 

3978 Li6F SF MOV Fel 34TH FRACTION 

3079 1170 7D MOV Ack :ZERO 

39e0 1171 SA S6B ) ~ §COMPLEMENT 3RD FAACTION 

39e1 1172 yn MOV DA 73RD FRACTION 

3nn2 1173 7D MGV Aek $ZERO ©1976 Processor-Technology-Corporation 
ann3 1174 $9 SbB C ;COMPLEMENT 2NO VFRACTION PRINTED IN U.S.A. 
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STVNT 


3ne4 
3085 
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LOC 


1175 
1176 
1177 
1178 
1179 


117A 
117C 
1170 
Li7E 
1181 
1182 
1183 
1184 
1185 
1186 
1188 
1189 
118C 


118D 


118E 
LLeF 
11990 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
119A 
2290 
-119€E 
11A0 
11A2 
L1A3 
LIA4 
11A5 
“L1A6 
LLA7T 


11A8 
LIAA 
11A8 
11AC 
11AD 
1180 
1181 
11B2 
1163 
1184 


1187 


OBJECT CODE 


4F 
7D 


20 


9A 


08 


7C 


4) 


20 
35 


35 


B7 


B87 


NORMS 
NORM1$ 
11 
11 
per NORM2$ 
11 NORM38 
3 
ROND? 
11 
OF 


SOURCE STATEMENT 


; 


ROUND TH 


PAGE 


32ND FRACTION 

3ZERO 

*;COMPLEMENT AIST FRACTION 
31ST FRACTION 

tRETURN To CALLER 


tMAX NORMALIZING SHIFT 

311ST FRACTION 

;SET CONTROL RITS 

tIF iST FRACTION NONZERO 

tiST FRACTION 

32ND FRACTION 

33RD FRACTION 

tZEROTH 4TH FRACTIOLN 
s;NORMALIZING SHIFT COUNT 

sREDUCE SHIFT COUNT 

;NORMALTZING SHIFT COUNT 

tIF FRACTYOLN NONZERO 

tIF FRATION ZERO 

tDECREMENT SHIFT COUNT 

sORIGINAL CONTENTS OF E 

tLEFT SHIFT E 

sRESTORE THE CONTENTS OF REGISTER E 
sORIGINAL CONTENTS OC O REGISTER 
{LEFT SHIFT D 

tRESTORE CONTENTS OF D REGISTER 
tTORIGINAL CONTENTS OF C REGISTER 
tLEFT SHIFT C 

sRESTORE THE CONTENTS OF C REGISTER 
TORIGINAL CONTENTS OF REGISTER B 
tLEFT SHIFT B 

tRESTORE CONTENTS OF B REGISTER 
tIF NOT NORMALIZED 

tNORMALIZING SHIFT COUNT 

tREMOVE BIAS 

+TO ADOR ACCUM EXPONENT 

tADJUST ACCUM EXPONENT 

tNEw ACCUM FXPONENT 

RETURN IF ZERO EXPONENT 

;BORROW BIT TO SIGN 

tSET SIGN TO INO. UNNERFLOW 
tRETURN TO CALLER 

E Be Ce D REGISTERS 

?TO ADDR ACCUM EXPONENT 

34TH FRACTION 

tSET CONTROL RITS 

sACCUM EXPONENT 


 tCALL2NN LEVEL ROUNDER 


tIF OBERF1 Ow 

21ST FRACTION 

$TO ADDR ACCUM SGN 

sACCUM SIGN AND 1ST FRACTION 


MOV CoA 
MOV AeL 
S&B B 
MOY BeA 
RET 

NORMALIZE THE REGISTERS 
MVI L +0400 
MOV AeB 
ANA A 
JNZ NORMS 
MOV - Bel 
MOY C.D 
MOV DeE 
MOV EeA 
MOV AgL 
Su] 0100 
MOV LeA 
JNZ NORMZ 
RET 
OCR L 
MOV AeE 
RAL 
MOV EsA 
MOY AeD 
RAL 
MOV aA 
MOY AeC 
RAL 
MOY CrvA 
MOy AeB 
ACC A 
MOV BeA 
JP NORM2 
MOY AeL 
SUI 0400 
MVI LeACCE 
ADO M 
MOy MeA 
RZ 
RAR 
ANA A 
RET 

SUBROUTINE TO 
MVI LeACCE 
MOY Ack 
ANA A 
MOV EM 
CM RNDR 
RC 
MOV AeB 
INR L 
XKA M 
JMP STR1 


SECOND LEVEL ROUNDING 


INR 


D 


sRETURN THRU STORE SUBR. 
SUBROUTINE 
$ROUND 3RN FRACTION 


59 


©1976 ProcessorTechnology-Corporation 
PRINTED IN U.S.A. 
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RBNFO XASM A FOCAL INTERPRETER FOR THE 8080 PAGF 60 
STNNT LOC OBJECT CODE SOURCE STATEMENT 
3429 1188 co . RNZ | sRETURN IF NO CARRY 
3140 1189 OC INR Cc "3CARRY TO OND FRACTION 
3141 11BA Co RN2 tRETURN IF NO CARRY 
-—6«Bi42 1188 04 INR B sCARRY TO 1ST FRACTION 
3143 11BC co RNZ tRETURN IF NO CARRY 
314% 118D 7B MOV Ack sACCUM EXPOENT 
3145 11BE _C6 O21 Aul 1 tINCREMENT ACCUM EXPONENT 
3146 11C€0 SF MOV. EeA ° <NEW ACCUM EXPONENT 
3147 11C1 06 80 MVI B+2000 tNEW 1ST FRACTION 
3148 11C3 77 MOV MeA tNEW ACCUM FXPONENT 
3149 1ic4& cg RET SRETURN TO RONO SURROUTINE 
S120 : FIXEC POINT MULTIPLY SUBROUTINE 
Sif1 11c¢5 2E «OOE MULX S$ MV L+«MULPL $TO ADOR 1ST MULTIPLICANO 
.siree 11C7 77 ~ MOV MeA 1ST MULTIPLICAND 
3123 11C8 2€ #OA MVd LeMULP2 *TO ADOR PND MULTIPLICANO 
oe ack oe 11CA 72 MOV MeO 82ND MULTIPLICAND 
S15 11CB 2E 06 MV1 L«MULPS tTO ADDR 43RD MULTIPLICAND 
31&6 11CD 73 MOV MeE tR3RO MULTIPLICAND 
3187 nip 8 AF XKA A s;CLEAR 6TH PRODUCT 
3128 11iCF SF MOV Eel sCLEAR STH PRODUCT 
3q89 1100 57 MOV DeA ‘CLEAR 4TH PRODUCT 
3160 : MULTIPLY BY FACH ACCUMULATOR 
, BLE4 : FRACTION IN TURN 
—6« B12 1101 2—E 39 MV2 LeACC3 3TO0 ADDR 3RO FRACTION 
3463 1103 cD £€O0 Wi CALL MUL X2 sMULTIPLY BY ACCUM 3RD FRACTION 
3164 1106 2— 38 MVi t eACC2 370 ADDR ANN FRACTION ; 
31€5 1108 CO DD 11 CALL MULX1 SMULTIPLY BY ACCUM 2ND FRACTION 
BLE6 1108 2— 37 MV1 LeACC1 3TO AOOR 1ST FRACTION: 
3167 ; MULTIPLY BY ON& ACCUMULATOR WORN 
31€8 1100 TA MULX13 MOv AeD ISTH PARTTAL PRODUCT 
3169 11DE 59 MOV EeC <4TH PARTTAL PROOUVT 
3170 L10F 50 MOV DB t3RD PARTTAL PROOUVT 
3471 11£0 46 MULX2¢ MOV BaM SMULTIPLIFR | 
3172 11€1 6F MOV. LeA t5TH PARTTAL PROOUCT 
3173 11E2 AF XRA A $ZERO 
3474 11€3 GF MOV CoA 32ND PARTTAL PRODUCT 
3175 LIiE4Y 90 SUB B tSET CARRY RIT FOR EXIT FLAG 
3176 11£5 DA Fil 11 JC MULX3 :IF MULTIPLIER IS NOT ZERO 
3177 11£8 GA MOV C+D t2NO PARTTAL. PRODUCT 
3178 11E9 53 MOV DoE t~3RD PARTTAL PRODUCT 
io i Be 11iEA C9 . RET ‘MULT BY ZERO COMPLETE 
3180 ; COMPLETE ADDITION OF MULTIPLICANO. 
S12) 11£8 OF MULXSs MOV CoA 32ND PARTTAL PRODUCT 
3182 LIEC D2 Fi ii JNC MULX3 tIF NO CARRY TO 1ST PRODUCT 
3483 LEP 04 INR B ,ADD CARRY To 1ST PRODUCT 
3184 11F0 A7 . AWA A ; :;CLEAR CARRY BIT 
3185 : LOOP FOR EACH BIT OF MULTIPLIER WORD. 
3186 11F1 70 MULX33 MOV Adk t5TH PARTTAL PRODUCT. EXIT FLAG 
31e7 11F2 8F ADC A SSHIFT EXTT FLAG OUT IF DONE 
3188 11F3 C& RZ SEXIT TF MULTIPLICATION OONE 
3189 11F4 6F MOV LoA 35TH PART PRODUCT. EXIT FLAG 
31¢0 11F5 7B MOV AegE t4TH PARTIAL PRODUCT 
31¢1 11F6 17 RAL sSHIFT 4&TH PARTIAL PRODUCT | 
3i¢2 11F7 SF MOV EAA 24TH PARTTAL PRODUCT ©1976 ProcessorTechnology-Corporation 
34¢3 11F8 7A MOV AD PRODUCT 


89280 XASM 
STWNT 


31¢4 
3165 
R166 
31¢7 
31¢8 
21¢9 
32c0 
3201 
Zate2 
3203 
304 
52C5 
326 
3207 
32¢8 
3209 
—6B290 
3211 
324-2 
3213 
R294 
3215 
3216 
3217 
4218 
32419 
3229 
S221 
3722 
3223 
— B]224 
3225 
3226 
3007 
3228 
3229 
3220 
322) 
R232 
3233 
3024 
3925 
3026 
3937 
3928 
3229 
3240 
3241 
3242 
4aus 
344 
3248 
3046 
3247 
3988 


A FOCAL INTERPRETER FOR THE 8080 
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LOC OBJECT CODE SOURCE STATEMENT 
11F°9 17 RAL tSHIFT 3RN PARTIOL PRODUCT 
11FA 57 MOV vA t3RD PARTTAL PRODUCT 
11F6 79 MOV AeC 2NON PARTTAL PRODUCT 
11FC 17 RAL SSHIFT OND PARTIAL PRODUCT 
11F0 KE MGV CeA 32ND PARTTAL PRODUCT 
1iFE 78 MCV A.B 31ST PARTTAL PROOUCT AND MULTIPLIER 
LLiFF Fok: Of Seem RAL ‘SHIFT 1ST PARTIAL PRODUCT AND MULTIPLIER 
1200 “7 MOV BeA 31ST PARTTAL PRODUCT AND MULTIPLIER 
1201 O02 Fl iil JNC MULX3 tIF NO AONITION REQUIRED 
; ADO THE MULTIPLICAND TO THE PRONUCT 
: IF THE MULTIPLIER BIT IS ONE. 
1204 7B MCV Ack 14TH PARTTAL PRODUCT 
1205 —« C3 05 00 JMP MULX4Y tTO RAM COOF 
; FIXED PGINT DIVIDE SUBROUTINE 
: SUBTRACT DIVISOR FROM ACCUMULATOR TO 
: OBTAIN 1ST REMAINOER 
1208 2— 639 DIVX: MV1 LeACC3 $TO ADORESS ACCUM 3RD FRACTION 
120A 7E MOV AeM tACCUMALTOR 3RO FRACTION 
1208 93 SLB E sOIVISOR 3RN FRACTION 
120C 77 MOV MeA sREMAINDER 3RN FRACTION 
1200 20 DCR L 7TO ADDRESS ACCUM 2NOD FRACTION 
120E° 7E MOV Aus sACCUMAL OTOR 2ND FRACTIN 
120F 9A S&B D | sOIVISOR 2NN FRACTION 
1210 77 MOy MeA tREMAINNFER 2ND FRACTION 
1211 2U OCR L ;TO ADDRESS ACCUM 1ST FRACTION 
1212 TE MOV AdM ‘ACCUMULATOR 1ST FRACTION 
1213 99 SEB C ;DIVISOR 1ST FRACTION 
1214 77 MOV MeA tREMAINNER 1ST FRACTION 
: HALVE THE DIVISOR ANO STORE RFOR 
. : ADDITION OR SUBRRACTION 
1215 79 MOV AeC tOIVISOR 1ST FRACTION 
1216 17 RAL ;SET ACRRY RIT | 
(1217 79 MGV AeC ;DIVISOR 1ST FRACTION 
1218 1F RAR tHALF NIVTISOR 1ST FRACTION 
: +200B TU COORRECT QUOTIENT 
1219 2— 16 MV 2. LeOP1S 3TO ADOR 1ST SUBTRACT DIVISOR 
1218 77 MOV MeA 11ST SURBRRACT DIVISOR 
121iC 2— 2C MV 1 L*eOP1A tTO AOOR 1ST ADD DIVISOR 
1Z21E 77 MOV MoA t1ST ADN nNYVISOR 
121F 7A MOV A?0 tDIVISOR 2NN FRACTION 
1220 1F RAR tHALF OF MIVISOR 2NN DIGIT 
1221 2— 1A MVi L+OP25 7TO ADNR 2NND SUBTAACT DIVISOR 
1223 77 MOV MeA 32ND SUBTRACT OIVISRO 
1224 2— 28 MV1 L»OP2A :TO ADOR 2ND ADD DIVISOR 
1226 77 MOV MeA t2NO ADD NIVIOR 
1227 7B MOV AcE tOIVISOR 3RN FRACTION 
1228 iF RAR tUALF OF NDIVISOR 3RD FRACTION 
1229 2— 16 MVI LeOP3S :TO ADDRESS 3RD SUBRRACT DIVISOR 
1228 aT MOY MeA 13RD SURTRACT DIVISOR 
122C 26 24 MYVI L1OP3A $TO ADNRESS 3RD AND NIVISOR 
122E 77 MOV MoA t3RD ADD MIVISOR 
122F 06 oO MV1 B40 sINIT QUOTIENT 2ST FRACTION 
1231 78 MGV ArB ;OIVISOR FOURTH FRACTION 2S ZRRO : 
1232 iF RAR tLOW BIT OF DIVISOR 3RO FRACTION ©1976 ProcessorTechnology-Corporation 
1233 2— 623 MV2 L»OP4s 3TO ADDRESS 4TH SUBRRACT DIVISGR PRINTED IN U.S.A. | 


AneO XASM - A FOCAL INTERPRETER FOR THE 8080 OC : | SS PAGF = £2 
STWNT LOC OBJECT CODE SOURCE STATEMENT 


3249 1235 77 . MOV MeA $4TH SURTRACT OIVISOR 
3oe0 1236 2— 21 MVI L+OPGA - $T0 ADDRESS 4TH ADD OIVISOR 
2981 1238 77 MOV mel 34TH ADD NIVISOR 
Ran2 1239 2€ 2F | MV L»OP4X. 1TO ADORESS 4TH ADD OIVISOR 
3oe3 1238 77 MOV Mol 34TH ANN MIVISOR 
Zoey : LOAD 1ST REMAINDER, CHECK SIGN 
Zonas 123C 2— «637 MY1 LeACCL 7TO ADOR REMAINDER 1ST FRACTION 
RoeG 123€ 7E MGV - AeM * {REMAINNFER 1ST FRACTION . 
Roe7 123F 2c INR L TO ADDR REMAINDER 2ND FRACTION 
3928° 1240 56 MOV DsM tREMAINDER 2ND FRACTION 
3209 1241 2c INR L TO ADOR REMAINDER -3RN FRACTION 
32¢0 1242 55 MCV FeM SREMAINDER 3RD FRACTION 
3oe4 — — - 2283 A7 . ANA A | SET CONTROL BITS 
32€2 1244 FA 6E— 12 JNM OIVX4Y tIF REMAINOFR IS BNEGATIVE 
3263 | ; ADJUST EXPONENTe POSITION REMAINDER 
3264 : ; ; ANO INITIALYZE THE QUOTIENT 
3265 1247 2— 35 MV1 LeACCE 3;TO ADDRESS ACCUM EXPONENT 
3oEE 1249 KE MOV CoM QUOTIENT EXPONENT 
2967 124A OC INR Cc tINCREMENT QUOTIENT EXPONENT 
29¢8 124B ca. RZ | tRETURN IF OVERVLOW 
32¢€9 — 124¢ 71 MCV MeC sQUOTIENT EXPONENT 
3970 1240 6B MOV Lee sREMEINNER 3RD FRACTION 
3271 124E 62 MOv HD tREMAINDER OND FRACTION 
3972 L24F SF MOV FA tREMAINNER 1ST FRACTION 
3973 1250 16 O1 MVI ° Del tINITIALIZE QUOTIENT 3ROD FRACTION 
3074 4252 48 MOV CeB TINITIALIZE QUOTIENT ONO FRACTION 
3275 : SUBTRACT THF DIVISOR FROM THE RFAMAINDER 
3276 : IF IT LS POSITIVE 
3277 1253 AF DIVX1:$ XRA A SREMAINNDER GUTH FRACTION IS ZERO 
3978 1254 CO 432 «00 CALL DIVX5 tCALL RAM SFCTION 
3979 1257 07 DIvxes RLC sSHIFT REM STH FRACTION TO CY 
3220 : SHIFT THE RFMAINDER LEFT ONE RIT 
RoAal 1258 78 MOV AeB sQUOTIENT 1ST FRACTION 
3282 1259 17 RAL tMX BIT OF QUOTIENT TO CY 
32e3 1254 . 08 : RC 3;IF DIVISION COMPLETE 
3288 1258 1F RAR sREMAINDER 4TH FRACTION To CY 
3285 125C 70 MOV AelL sREMAINDER 3RD FxAZCTION 
3ae26 1250 17 RAL tLEFT SHIFT REM 3RN FRACTION 
3987 125€ 6F MOV LeA sREMAINDER 3RD FRACTION | ‘ 
32828 125F 7 MOV NeH sREMAINDER 2ND FRACTION 
3289 1260 17 - 3 RAL | sLEFT SHIFT REM 2ND FRACTIN 
3oe0 1261 67 MOV HeA tREMAINDER OND FRACTION 
32¢1 1262 CD 34 11 CALL SH sCALL LFFT SHIFT ROUTINE 
32¢2 : BRANCH LF SUBTARACTION IS REQUIRD. 
Zoe 1265 7A MOV. Ard _ $QUOTIENT 3RD REMATNDER 
3ac4 1266 OF RKC sREM SIGN INDIC TO CARRY BIT 
32¢5 1267 DA §3 12 | DIVX1 tTO SUB DIVISOR IF REM POS 
32¢6 : AOD THE DIVISOR IF THE REMAINDER 
32¢7 : IS BNEGATIVE 
32¢8 126A 70 DIVX33 MOV Ael REMAINDER 3RD FRACTION 
3269 126B C3 23 900 JMP DIVX6 +TO RAM CODE 
3300 : POSITION THF REMAINDER ANO INITIALIZE 
3301 : THE QUOTIENT | 
3302 126E 6B DIVX4: MCV Lee SREMAINDER 3RD FRACTION ©1976 Processor-Technology-Corporation 


33¢3 126F 62. MOY HeD tREMAINDER OND FRACTION PRINTED IN U.S.A. 


3080 XASM. 
STANT 


3ar4 
335 
RACE 
33c7 
3zc8 
33¢9 
3349 
3341 
3342 
33345 
3344 
3375. 
3316 
3347 
3346 
33499. 
3320 
3321 
3322 
4363 
3394 
33¢5 
3326 
3327 
3328 
343995 
3220 
3324 
34342 
4323 
RAR 
3335 
3326 
3327 
3378 
33239 
3340 
5244 
BB4O. 
3343 
Z2BGG 
3245 
3346 
3347 
3348 
3349 
3%ED 
RzE1 
3382 
« 3253 
33E4 
RBZE5 
3356 
33&7 
33°28 


A FOCAL INTERPRETER FOR THE 8080 


Loc 


1270 
1271 
1272 
1273 
1276 


OBJECT CODE 


6A 


BC 


TF 


12 
00 


10 


le 


SOURCE STATEMENT 


MOV 
MOy 
MOV 
JMP 
Cb 


PROGRAMMER $ 


POINT SYSTEM 


Be 20 28 26 20 2 @©29° 22° 20 we 


ADRL: EGU 


EaA 
D0*eB 
c+B 
DIVX3 
0 


SFel 


sREMAINDER 1ST FRACTION 


PAGF 63 


TINITIALIZE QUOTIENT 3RO FRACTION : 
tINITIALIZE QOUTIENT REMAINDER 2NO FRA TION 
sADD DIVISOR IF REM IS NEG. 


*CHECKSUM 


8008 BINARY FLOATING POINT SYSTFM 

FORMAT CONVFRSION PACKAGE 

CAL OHME 

DATE 26 DECEMBER 1973 

ARITH IS THE BEFINNING ADDRESS oF 

ARITHMETIC AND UTILITY PACKAGE OF THE FLOATING 


SCR IS THE REGINNING OF THE 

RAM USED AS SCRATCHPAD FOR THE SYSTEMe 
RAM LOCATIONS USED BY THE BINARY 

: FLOATING POINT SYSTEM . 


tCHARACTER SRTRING WORD 


©1976 Processor-Technology-Corporation 


ADRH? EGU ADRL41 sCHARACTER STRING RANK 

TMP13 EGU ADRH+14 2:TEMP STORAGE 

TMP23 EQy TMP14i4 s,TEMMP STORAGE 

TMP33 EGU TMP24+i ;TEMMP STORAGE 

VALES EGU TMP3 41 ;VALUE EXPONENT 

VAL1 EQu VALE41 tVALUE 1ST FRACTION 

VAL2 EGU VAL141 sVALUE 2(M FRACTION 

VAL3 EGU VAL2434 ,VALUE 3RN FRACTION 

TMP Eu VAL341 7TEMP STORAGE 

: SUBROUTINE To CONVERT FROM FIXEN 

: POINT TO FLOATING POINT FORMAY. 

FLT? MOV Lefé tINPUT EXPONENT 
MGV FD 34TH INPUT FRACTION 
MOV Dec $3RD INPUT FRACTIN 
mMOy CB $2NO0 INPUT FRACTION 
MOV BeA 31ST INPUT FRACTICN 
MOV Aek {INPUT FXPONENT 
XKI 2000 tAPPLY FXPONENT BIAS 
MV1 HeSCRB 3TO ADDRESS SCRATCH RANK 
MV 2 LeACCE 3;TO ADOR ACCUM EXPONENT 
MOV MeA tACCUM EXPONENT 
INR L sTO ADORESS ACCUM SIGN 
MVI me2000 ‘SET ACCUM SIGN POSITIVE 
INR L tTO ADDR aCCUM 1ST FRACTION 
MOV AwB 31ST INPUT FRACTION 
ANA A ;SET SIGN BIT 
RAL INPUT SIGN TO CARRY | 
JUMP A0D10 ;COMPLETE CONVERSION 

: SUBROUTINE ro CONVERT FROM FLOATING 

; POINT TU FISEX PCINT FORMAT 

FIX: MVI He SCRB :TO ADORESS SCRATCH BANK 
MVI LeACCE ?TO ADNR ACCUM EXPONENT 
MOV AaM | tACCUM FXPONENT 
ANA A ;SET CONTROI BITS 
Jz FIXi ,1F ACCUM IS SET TO ZERO 
MOY AsE s INPUT FXPONENT 
ALL 1770 ZAPPLY RIAS#i 


PRINTED IN U.S.A. 


feN4A TL Wh MPG 


STANT 


5259 
3340 
33E€1 
%3%e2 
4363 
33e4 
3365 
3366 
33e7 
33¢8 
33¢9 
3370 
S401 
3372 
3373 
3374 
3375 
3376 
a at f 
4278 
3379 
3380 
3381 
“3382 
S225 
35e4 
4325 
3386 
SRE7. 
33e8 
3zA9 
3360 
$3¢1 
3392 
33¢3 
35¢4 
3365 
3366 
3397 
33¢8 
33¢9 
3400 
34C4 
3402 
3ue3 
3404 
34c5 
3406 
3407 
3408 
3409 
3410 — 
3441 
3412 
3443 


om Fe he IRE RL Pe PEN OF EN 


Loc 


129A 
1298 
129C 
1296 
12A1 
12A3 
12A5 
1246 
12A7 
12A8 
12A9 
12AA 
12A0 
1L2AF 
1280 
12B1 


1284 ° 


1286 
1287 
12688 
1289 
128A 
1286 
12BC 
1280 
L2BE 
12BF 
12CO0 
12Ci 


12C2 
12C3 
12C6 
12C7 
12C9 
12CB 
12CC 
12Cc0 
L2Ce 
1202 


1204 


1207 
1209 
120C 
12GE 


120F 
12E2 
12£3 
12E5 
12E£7 
12E9 
12EC 
L2EE 


OBJECT CODE 


41 
36 


67 
01 


le 


11 


11 


0 


14 


12 
12 


12 


14 


13 


13 


min OVUONV 


SOURCE STATEMENT 


FIX1: 


; 
: 
INPs 


Sb3 
RC 

CPl 
JNC 
Abd 
MV1 
MOV 
INR 


SSHIFT COUNT=1 

SRETURN IF ACCUM TOON LARGE 
;COMPARF TO LARGE SHIFT 

tIF ACCUM TOO SMALL 

;SHIFT COUNT 

3TO ADDR ACCUM 1ST FRACTION 
tACCUM 1ST FRACTION 

3TO. ADDR ACCUM 2ND FRACTION 
sACCUM 2NN FRACTION 

3TO ADNR ACCUM 3RD FRACTION 
3ACCUM 3RN FRACTOON 
sPOSITION THE FRACTION 

$TO ADOR ACCUM SIGN 

sACCUM SIGN 

;SET CONTROL BITS 
s;COMPLEMENT FRACTION IF NEG 
;NON¥ZERO | 
3SET CONTROL BITS FOR EXIT 
tUST REAULT , 

32ND REAULT 

23RD REAULT 

34TH RESULT 

sRETURN TO CALLER 

7ZERO 

$ZERG 

7ZERO 

3ZERO 

tRETURN TON CALLER 

s;CHECKSUM WORD 


INP SUBROUTINE ENTRY POINT 
INITIALIZE TEMPORARY STORAGE 


SFIRST CHARACTER OF STRINT 
3SET CHAR ANDRse PNT FLAGe EXP 
+TO ADDRESS VALUE SIGN 
;SET ValUr SIGN POSITIVE 
TO ADNR ACCUM EXPONFNT 
sSET ACCUM TO ZERO 

sFIRST CAHRACTER 

sCOMPARE TO SPACE 

sIF SPACE CHARACTER 
sCOMPARE CHAR TO PLUS 

3;IF PLUS SIGN 

;COMPARF TO MINUS 

3IF NOT MINUS 

$TO ADDR VALUE SIGN 

tSET VALUF SIGN NEGATIVE 


ANALYZE NEXT CHARACTER IN STRING. 


MOY Few 
CALL sVAD 
INR L 
MV1 Mee000 
MVI LeACCE 
MGv MeD 
MCV Ack 
CPI 3600 
Jd INP1 

© CP 3730 
JZ INP1 
CPI 3750 
JING INP2 
MV Le TMP3 
MOV MeD 
CALL CHAD 
MCV AeM 
MVI HeSCRB 
MV Bed 
CPl 3760 
J2Z INP3S 
CP] 0250 
Jed JNP4 


sCALL CHAR ADDR SBRTN 
NEXT CHARACTER 

:TO ADORESS SCRATCH BANK 
DIGIT 2NN WO OR DEC EXP 
sCOMPARF TO DECIMAL POINT 
INF DECIMAL POINT 
;COMPARF TO EXPONENT SIGN 
$IF EXPONFNT SIGN 


PAGE. 


64 
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aneO XASM 
STWNT 


2444 
3445 
4496 
4447 
3478 
3499 
34290 
34al 
3422 
3493 
2uok 
3435 
43436 
427 
3428 
3429 
3429 
RUZ] 
3422 
RGU2Z 
5424 
3425 
R426 
3427 
34280 
34U2G 
3440 
3441 
S442 
34u3 
ZUuy . 
3445 
3446 
3447 
3448 
3449 
34°50 
3yu81 
3482 
3483 


3454 ° 


RuUE5 
3456 
3457 
4uE8B 
3u£&9 
34E9 
Buél 
BRE? 
3u€3 
Bués 
3465 
S466 
2u€7 
3ueé8 


A FOCAL INTERPRETER FOR THE 8080 


PAGE 


Loc OBJECT CODE SOURCE STATEMENT 
12F1 FE OA Cri 0120 ;SET CARRY TF CHAR IS DIGIT 
12F3 D2 5D 13 JNC INPS tIF CHAR IS NOT A DIGIT 
12F6 2— 644 MV1 Le TMP4Y TO ADDR CURRENT OTGIT 
12F8 77 MOY MeA TSAVE CURRENT OIGIT 
12F9 21 64 14 Lxl HeFTEN {TO ADDR FLOATING SIGN 
12FC CD O04 10 CALL MUL ;MULTIPLY BY TEN 
12FF 2—E 49 MV1 LeVALE 3TO ADOR VALUE 
1301 CO B6 OF CAuL STR i;STORE OLN VALUES TIMES TEN 
1304 2c INR L ;TO ADOR CURRENT DIGIT 
1305 7E MOV AeM sCURRENT NIGIT 
1306 06 00 Mv Be s;CLEAR 2NN wORD OF DIGIT 
1308 48 MOV CoB ;CLEAR WORD OF DIGIT 
1309 50 MOV D+B CLEAR 4THRD OF DIGIT 
130A — 1E 08 MVI F.01L00 sINDICATE OTGIT IS IN REG A 
130C CD 77-12 CALL FLT SCONVERT NIGIT TO FLOATING PNT 
130F 2— «640 MV I LeVALE 
1311 CD uF 10 CALL AD sADO OLD vALUE TIMES TEN 
1314 2— «63E MVI Ly TMP2 :TO ADDR NEC PNT FLAG 
1316 7E MGV AeM DECIMAL POINT FLAG 
1317 A? ANA A sSET CONTRO! BITS 
1318 CA OF ie J2 INP IF NO NEC PNT FCNCOUNTERED 
1318 20 DCR L 7TO ADDR TNPUT EXPONENT 
131C 4G MGV BaM tINPUT FXPONENT 
1310 05 DCR B TDECREMENT YNPUT EXPONENT 
131€ 70 MOV MeB ,UPDATFE INPUT EXPONENT 
131F - C3 OF i2 UMP INPL 1TO GET NEXT CHARACTER 
1322 - 2E BE INP3$ MV1 LeTsP2 2TO ADOR DEC PNT GFLAG 
1324 AE XR A M tZERO IF FLAG SET 
1325 77 MOV Mel sSET OE€C PNT FLAG 
1326 C2 OF 1e JN2 INPL ;IF LFLAG NOT ALREADY THERE 
1329 * €3 §0 13 UMP INPS ;IF 2@ND OFC PT 

| ; PROCESS DECIMAL EXPONENT 
132c CoO 669) o14 INP4$ CALL CHAD ;CALL CHAR ADOR SBRTN 
132F pee = MOV AeM tNEXT CHARACTFR OF STRING 
1330 47 MOV BeA sCURRENT NCHARACTER 
1331 D6 FD “SUI 3750 sCOMPARF TO MINUS CHAR 
1333 SF MOV FeA sCHAR = MINUS SIGN 
1334 CA 30 13 JZ INPS :IF mINUS SIGN 
1337 C6 02 ALI 2 ;COMPARE TO PLUS CHAR 
1339 78 MOV AcB SCURRENT CHARACTER 
133A C2 3F 13 JNZ INP6G ;IF NOT PtUS SIGN 
1330 2c INPS$ INR L 3TO ADORESS NEXT CHAR. 
133E 7E MOY AeM sNEXT CHARACTER OF STRING 
133F 06 00 INP6$ MV 1 B.0 ;POSSIRBLE DFC EXPONENT 
1341 FE OA CFI 120 ;SET CARRY TF CHAR IS DOIGIT 
1343 pe 5D 13 JUNC INP8 :IF CHAR IS NOT aA DIGIT 
1346 4&7 MOV BeA 1DEC EXP FQUAL DIGIT 
1347 2c INR L TO ADDRESS NEXT CHARACTER 
1348 7E MOV AeM tNEXT CHARACTER OF STRING 
1349 FE OA CF] 120 sSET CHARRY IF CHAR IS DIGIT 
1348 D2 56 13 JNC INP? 3I1F CHAR TS NOT A DIGIT 

3 FORM COMPLETE DECIMAL EXPONENT. 

134E uF MOV CeA  ° 3lS DIGIT OF DEC EXPONENT 
L34F 78 MOY AcB MS DIGIT OF DEC ExP 
1350 87 ALD A $2 « MS OIGIT 


PRINTED IN U.S.A. 
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aneg xpassu 
STXNT 


3ué9 
3470 
3471 
3u72 
3473 
347% 
4475 
3476 
3477 
3478 
3479 
3ye0 
3u@1 
3ua2 
Byes 
 24a4 
3485 
3486 
3407 
34uC8 
3ue9 
3460 
4461 
3uce2 
34ug30 
3yuo4 
34C5 
3456 
3457 
3u¢8 
3ueg 
3500 
3504 
3502 
3503 
Baq4 
35¢5 
35¢6 
a5C7 
3508 
35¢c9 
3510 
$511 
35412 
3543 
3534 
3515 
3516 
3577 
3518 
3519 
4520 
3521 
3522 
3523 


A FOCAL INTERPRETER FOR THE 8080 


SOURCE STATEMENT 


PAGE 


LOC OBJECT CODE 
1351 8&7 Abv A 74 « MS OIGIT 
1352 80 AOU B 75 *« MS OIGIT 
1353 87 ALY A 2710 * MS OLGIT 
1354 81 ALD C 710 « MS NIGIT + LS DIGIT 
1355 47 MCYy BeA sDECIMAL FXPONENT 
1356 78 INP7$ MOV AcE TSIGN OF NEC. EXPONENT 
1357 AT ANA A SSET CONTROL. BITS 
1358 C2 5D 13 JNZ INP8 - IF SIGN PLUS 
1358 $0 Sbu3 B s;COMPLEMENT DEC EXP 
135C 47 MGV BA ;DECIAML FXPONENT 
1350 26 Q0 INP8&$ MVI HeSCRB 3TO ADDRESS SCRATCH BANK 
135F 2E 0 6O3F MV d LeTMP3 770 ADORESS INPUT SIGN 
1361 GE MOV © CoM © tINPUT SIGN 
1362 2E 36 MMVI L+eACES 3TO ADDRESS ACCUM SIGN 
136% 71 MOV MaC sACCUMULATOR SIGN 
1365 78 MOV AcB sDECIMAL EXPONENT 
. : CONVERT DECYMAL EXPONENT TO BINARY 
1366 2E 30 INPS$ MVI LetTMPL TO ADOR OEC EXPONENT 
1368 86 AUD M sADJUST OFCIMAL EXPONENT 
1369 CA pi OF JZ TST ;IN DEX ExP IS ZERO 
136C 77 MOV MeA TCURRENT NECIMAL EXPONENT 
136D 21 64 14 Lxl1 HeF TEN $TO ADOR FLOATING TEN 
1370 F2 78 13 JF INP190 IF MULTIPLY REQUIRED 
1373 cD 2c.= 10 CALL DIV ;DIVIDE BY TEN 
1376 3E OO] MV1 Ael 3TO INCREMENT CEC FXP 
1378 C3 66 13 JMP INPS 7TO TEST FOR COMPLETEION 
1378 CD O04 10 INP103 CALL MUL tMULTIPLY BY 10 
L37E 08 RC sRETURN Ie OVERFLOW 
137F 3E «OFF MV1 Ae~3770 $TO DECREMENT CEC FXP 
1381 C3 66 13 JMP INP9 3TO TEST FOR COMPLETION 
4 OUT SU3SROUTINE ENTRY POINT 
: SAVE CHARACTER ADDRESS AND ACCUMULATOR 
1384 * 320 OU: DCR L sDECREMENT CHARACTER ADNRESS 
1385 CD 4¢C 14% CALL svAD tSET CHAR ANDDRe OIG CNT. OEC Exp 
1388  €d ol oF CALL TST 3L OAD ACCIIM To REGISTERS 
138B 2— 490 MVi Le VALE 3TO ADDR cACCUM SAVE AREA 
1380 CO B6 QF CALL STR ;CALL REG STR SUBROUTINE 
: OUTPUT SIGN CHARACTER 
13990 CD 59 448 CALL CHAD ;CALL CHAR ADOR SBRITN 
1393 . 36 FQ MV1 Me 36900 ;STORE SPACF CHAR 
1395 A7 ANA A ?TEST CONTROL BITS 
1396 CA Be 13 JZ ' OUTS :;I1F ACCUMULATOR IS ZERO 
13393 SF Moy EA SACCUMULATOR EXPONENT 
139A 78 MOY AcB *ACCUM SIGN AND 1ST FRACTION 
1398 A7 ANA A 3SET CONTROL BITS 
139C 78 MGV Ave ACCUM FXPONENT 
1390) F2 A2 13 Je OUTL IF ACCUM IS POSITIVE 
13A0 36 FD MVI Me3750 sCHANGE SIGN TO MINUS 
s;SCALE 
: SCALE ACCUMULA OR TO e1 = le RANGE 
13A2 FE 7E OUT1: Cri 1760 TCOMPARF TO SMALL FXPONENT 
13A4 21 64 14 OUT2: Lx Hef TEN ?TO ADOR FLOATING TEN 
13A7 DA BC 13 JC OUTS 3;IF EXPOENT TOO SMALL 
L3AA FE 81 Chl 2010 ;COMPARE TO LARGE EXP 
13AC CA Cc? 13 JC OUTS 3IF EXP SmMAIL ENOUGH PRINTED IN U.S.A. 
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B0eP0 XASM 
STWNT 


3524 
3525 
3526 
3597 
3528 
3529 
3520 
3521 
3522 
4523 
3524 
3525 
4526 
4527 
4578 
3529 
3540 
5541 
RS42 
354y3 
R5u4 
R545 
3546 
3547 
3548 
3549 
35£0 
35¢)1 
a5t2 
563 
3585 
3555 
R556 
35"7 
4558 
3569 
35€0 
3S5€1 
35€2 
3563 
35€4 , 
2S8€5 
35€6 
3567 
R5€8 
RSES 
35706 
3571 
3672 
A573 
4574 
aS7S 
3576 
R077 
3578 


A FOCAL INTERPRETER-FOR THE 8080 


Loc OBJECT CODE SOURCE STATEMENT. 
L3AF CdD 2cC 10 CALL DIV 
1362 26 90 OUT33 MV 1 HeSCRB 
1384 2E BE MV 1 LeTMP2 
13686 SE Muy Eek 
1367 ic INR E 
1388 73 MOV MeE 
13B9 C3 AY 43 JMhP OUTe2 
13B8C CD O48 10 OUTS: CALL MUL 
13BF 2E Z3E MV 1 Le TMP] 
13ci SE MOV EoM 
13C2 1D DCR E 
13¢3 TS Moy Mee 
132C4% C3 A2 13 JMP OUT1 
: ; ROUND THE VALUE BY 
13C7 CO c8 OF OUTS: CALL ABS 
13CA 21 68 14 Lxl HeRNDO 
13CO CD 4F 10 CALL AD 
1300 FE 81 CFl 2010 
1302 D2 A# 13 JNC ouTe 
; SET DIGIT CnUNT 
1305 2—E 63E MV1 Le TMPo 
1307 TE Moy Bam 
1308 SF MGV EvA 
1309 FE 08. CPI 0100 
1306 DA £0 13 JC QUT6 
13DE 1— O01 MVI FE 4} 
13E£0 93 OUT6$ SUB E 
TSE]. 77 MOy wehk 
 Y3E2 3E 607 My Ae? 
13E4% 35 SLB E 
1325 2c INR i. 
—43E6 77 Moy Me A 
L357 iD DCR E 
1358 7B MOV AvkE 
3 OUTPUT SIGNIFICANT 
13E9 eE 3D OUT7S: MVI LetMPL 
13EB 86 "ALD M 
13EC 77 MOV Mef 
i3E0 FA OA 14 JM, OUTS 
13F 0 21 64 14 LX1 Hef TEN 
13F3 CD Oo4 10 CALL MUL 
13F6 iE o8 MVi £+i00 
13F8 CO 8E ie CALL FIX 
13FB CD 59 14 CALL CHAD 
13FE 77 MOV MeA 
13FF AF XK A A 
1400 ig 60 608 MV 1 € +0200 
1402 cD 77 12 CALL FLT 
1405 3E OFF MV1 Ae3770 
1407 C3 E€9 13 JMP OUT? 
140A 2E 0 3F OUTS: MVI LefMPS 
140C TE MOY Ata 
140D 36 FF MVI mMe3770 
14CF AT ANA A 
1410 FA 2D 14 JM OUTS 


PAGF 


}DIVIDE BY TEN 


3:70 ADOR SCRATCH BANK 

TO ADOR DECIMAL EXPONENT 
tOECIMAL FXPONENT 

sINCREMNT OFCIM4L EXPONENT 
DECIMAL FXPONENT 

';TO TEST FOR SCALING COMPLETE 
SMULTIPLY 8Y TEN 

~7TO0 ADOR DECIMAL EXPONENT 
SDECIMAL FXPONENT 

sDECREMFNT DECIMAL EXPONENT 
SDECIAMAL EXPOENT 

;TO TEST FOR SCALING COMPLETE 


ANDING 00000005 


sSET ASCCUM POSITIVE 
7TO ADDRESS ROUNDER 
ADD THF ROUNDER 
‘CHECK FOR OVERFLOW 
{IF EXP TNO LARGE 


3TO ADDR DECIMAL EXPONENT 


SEDECIMAL EXPONFNT 


SOIGITS BFFOR DEC POINT 
S;COMPARE TO LARGE EXP 

tIF ECXPONENT IN RANGE 
SDIGITS REFORE DEC POINT 
sADJUST OFC EXPONENT 
*OECIAMAL EXPONENT 

TTOTAL NUMBFR OF DIGITS 
sDIGITS AFETER DECIMAL POINT 
;TQ AODR ANN DIGIT CNT 
sDOIGITS AFTER DECIAML COPOINT 
sDECREMFN]T DIGIT COUNT 
:DIGITS BEGORE DEC PNT 


OIGITS. 


TO ADDR NIGIT COUNT 
ADJUST DIGIT COUNT 

NEW DIGIT COUNT 

SIF COUNT TU OUT 

TO ADOR FLOATING TEN 
SMULTIPLY BY TEN 

sTO PLACE DIGIT IN REG A 
;CONVERT TO FIXED FORMAT 
:CALL CHAR ADOR SBIN 
SOUTPUT OFCIMAL DIGIT 
1CLEAR CURRFNT DIGIT 
IBINARY SCALING FACROR 
RESTORE VALUE NINUS DIGIT 
TO ADJUST NIGIT CNT 

LOOP FOR NFXT DIGIT 

3TO ADDR ONN NIGIT CNT 
SUIGITS AFTER DECIMAL POINT 
SET 2ND COUNT NEGATIVE 
:SET CONTRO! BITS 


3IF 2NO COUNT RAN OUT PRINTED IN U.S.A. 
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BNRFU XASM © 


STWNT 


5572 
3500 
35al 
3522 
35a3 
3574 
3825 
35e6 
35a7 
3528 
Z5£9 
a5¢0 
3561 
"Soe 
3593 
ASEH | 
36¢5 
35¢6 
45o7 
3556 
3559 
%6C0 © 
3601 
3602 
360-3 
36C4 . 
3605 
3ACE 
3607 
36¢8 
3609 
3610 
3611 
3642 
3615 
3614 
3615 
34616 
3617 
3618 
3619 
3620 
3621 
3622 
3423 
3624 
3525 
3626 
3427 
3628 
3429 
3670 
3671 
— 3622 
3623 


BR FOCAL. 

Loc 

1413 CD 
1416 36 
1418 26 
141A C3 
1410 2D 
141E A6 
L41F CA 
1422 06 
1424 F2 
1427 06 
1429 GF 
142A AF 
142B 91 
142C 0 
L42E 57 
142F - le 
1430 06 
1432 02 
1435 3E 
1437 cD 
143A co 
143D 26 
143F 2 
1442 C3 
1444 3 
1446 u7 
1447 OF 
1448 57 
1449 C3 
144C 70 
1440 44 
144E OE 
1450 51 
1451 26 
1453 2e 
1455 CD 
1458 C9 
1459 26 
1458 2E 
145D SE 
145E iC 
L45F 73 
1460 2c 
1461 66 
1462 6B 
1463 C9 
1464 

1465 

1466 

1467 

1468 


B6 


37 


00 


00 
3B 
B6é 


00 
3B 


“OBJECT CODE 


14 


13 


14 


14 


14 


14% 
OF 


OF 


14 


OF 


OUTS: 


; 


OUT10: 
OUT11° 


OUT12: 


’ 
OUT133 


: 
SVADs 


; 
~ CHADS 


FTEN-: 


RNDO>: 


INTFRPRETFR FOR THF ANARN 


SOURCE STATEMENT © 


DAS 


sCALL CHAR ADNR SRRTN 


- ¢STORE MECIMAL POINT 


TO ADDR SCRATCH RANK 

3LOOP FOR NFXT DIGIT 

3TO ADNR NECIMAL EXPONENT 
sOECIMAL FXPONENT 

3IF DECIMAL EXPONENT IS ZERO 


TPLUS CHARACTFR 

3IF EXPONFNT IS POSITIVE 
sCHANGE StiGN TO MUNUS 
TNEGATIVE FKXPONFNT 

7ZERO 

;COMPLEMENT EXPONENT 
sEMBRYO TENS NIGIT 
iUNITS NIGIT 

sINCREMFNY TENS OIGIT 
sREDUCE REMAINDER 

tIF MORF TENS 

tEXPONENT SIGN 

sCALL CHAR SBRITN 

;STORE 't AST 4 CHARACTER 
$TO ADNRESS SCRATCH RANK 
7TO ADNRESS ACCUM SAVE AREA 
SRESTORF ACCUM AND EXIT 


SXPONENT IS 7FRO. 


*SPACE CHARACTER 
7SPACE CHARACTER 
sSPACE CHARACTER 
tSPACE CHARACTER 
$TO STORE CHARACTFRS 


CHARACTER STRING ANDOR 


sCHARACTER SRRING WORD 
tCHARACTER STRING RANK 
tINPUT FXP OFR NIGIT CNT 
SDEC PNT FLAG OR DFC EXP 
tTO ADDRESS SCRATCH BANK . 
$TO ADNRESS STRING WORD 
sSTORE Ae BR, Cy ANN DO 
SRETURN TO CALLER 


SUBROUTINE TG CETAIN NEXT CHARACTFR ADDR 


3TO ADNRESS SCRATCH RANK 
$TO ADDR CHAR STRING WORD 
tCHARACTER STRING WORD 
3TO ADDR NFXT CHAR 
SUPNATFE CHAR STRING wORD 
;TO ADOR CHAR STRING BANK 
tCHARACTER STRING RANK 
TCHARACTER STRING WORD 
SKETURN TO CALLER 
sFLOATING TEN 
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CALL CHAD 
MV 1 M+3760 
MV I HeSCRB_ 
JMP OUT7 
DCR L 
ANA M 
JZ OUT13 
OUTPUT DECIMAL EXPONFNT 
MVI B+4730 
Jb CUT10 
MV Re3750 
MOY Cof 
XKA A 
SUB C 
MVI C3770 
MCV DeA 
INR C 
Su1 0120 
JNC OUT1i1 
Mvl AeC250 
CALL CHAD 
CALL STR 
MV I H»eSCRB 
MV di Le VALE 
JMP Loo 
OUTPUT 4% SPacES IF 
MV1 Ae2600 
MOV Beh 
MOV Ceh 
MOV DA 
JMP OUT12 
SUBROUTINE To SAVE 
MOV Aek 
MUv Belt 
My i Cel 
MOV Del 
MV 1 HeSCRB 
MV1I LefORL 
CALL STF 
RET 
MVI HeSCRB 
MV d Le*ADRL 
MOV Eek: 
INR E 
MGy Vel 
INR L 
MOV He M 
MCV Loft. 
RET 
Db <Jk0 
Db 0400 
DL 0 
Dis C 
Db 1500 


+-00000005 PRINTED IN U.S.A. 


Bae XASM 
STvtit 


R674 
36275 
R626 
3627 
RE2B 
3629 
%6u0 
3641 
3642 
5eu% 
3644 
3645 
36u6 
6u7 
3648 
44u9 
3he0 
36°] 
46€2 
ReRes 
BARY 
S655 
2RE6 
4687 
2628 
2629 
%6EO 
3661 
S642 
36€3 
36eE4 
3665 
36€6 
B6E7 
36€8 
3669 
3470 
2671 
3672 
3473 
3a74 
2675 
676 
3477 
3678 
4679 
3680 
BGCd 
3g&2 
aees 
2AEu4 
3685 
BLEG 
2g&7 
32688 


A FOCAL INTERPRETER FOR THE 8080 


LOC OBJECT CODE SOURCE STATEMENT 
1469 56 OL 
146A | BF Dt 
146B AD Ob 
146C 0G Ob 

sCONSTANTS VARTABI 
0004 WORCS EGU 
COTF RUBGUT EU 
0002 TEST: EWU 
0003 CRT: EQu 
0020 SP 3 EGU 
 OocodD |. CR EGU 
OO0A - LF: EGu 
9000 KYBRO EGU 
146D 00 00 AXINS Dw 
146F TEXTP$ Ewu 
146F 29 8616 AXOUTS Dw 
' 14721 64 15 PC: Dw 
1473 00 00 THISLNS Dw 
1475 00 00 LASTLNs Di 
1477 00 DEBGSws DE 
. 41478 co 600 PT1: Dh 
1&7A 2A 16 LASTVs Dw 
147C 00 SRTCNS DE 
1470 OG LASTOP: DE 
147E EF OPS EGU 
L4H7E 00 ATSWs Db 
L47F FO CNTR3 DB 
1480 FF DL 
1481 00 STE Db 
1482 STRTV: EQuU 
1482 | 2A 16 BUFRS Ow 
1484 01 NAGSWs Ob 
1485 0D CHARS Db 
1486 oo) 600 LINENOS Dw 
1488 LIST6:3 EGY 
1488 | OC Db 
1483 07 i. Ob 
148A LIST7:3 EGU 
148A 03 Ob 
1488 oF 06 
148C OA DL 
148D LIST3: EGU 
148D 0D DE 
148E 00 Db 
148F 00 Db 
1490 OPTBLS$ EGU 
1490 3 Q3 DW 
1492 4F 410 Dh 
149% uC 10 Dw 
1496 2C 10 Dw 
1498 | -04% 40 DW 
149A 60 OF Dw 
149C —E3 G63 Ow 
149E 00 DMPSW° CE 


1260 
2770 
2550 
0 


PAGF 


SCHECKSUM WORD 


ES AND TABLES 


4 
7FH 


$ 

BUF BEG 
1 

150 

0 

$ 

140 


RECOVER 


AD 
SB 
nIv 
MUL 
FLEX 


RECOVER 


G 


tSLENGTH 


sUART STATUS PORT 
sCRT OUTPUT PORT 


sCARRIAGE RETURN 


tKEYBOARD QUTPUT UH. INPUT OPORT 
+STORAGE YNOEX 


;CUTPUT INOFX 

sPROGRAM COUNTER 

tLINE POINTER FROM FINDLN 
tBACK POINTFR FROMA FINOL 
DEBUG SwITChHis NONXZERO FOR LITERAL 
‘sVARTARLE POINTER , 
sADORESS AF LASTE VARIABLE 
sRESULT OF SORTDC 
tLAST OPERATION FOR EVAL 
sFUNCTION CODE 

sASKe TYPE SWITCH 

SDELETE AND ERROR COUNTER 


;sNEXT LOAC 

SSWITCH (DPO0O0SONEe 21=ALLe OFGROUP) 
tCHARACTER SAVE . 
LINE NO FROM GETLN (BCD) 

tINPUT LIST FOR SFOUND 

sF Fe 

;BELL 


s;CONTROL C FOR DEBUGGING 
sLEFT ARROW 


.sLINn& FEEN 


sEXCRETION LIST 
sLIST RBRANCHER 


END OF LIST 
sFLOATING POINT CALL ADDRESSES 
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;SEARCH CHAR-VARIABLE? OeTRACE PRINTED IN U.S.A. 


B20 XASM 
STANT 


3629 
36¢0 
36¢1 
%AcC2 
%6¢3 


ayaa" 


36¢5 
44¢6 
36¢7 
44,08 
36¢9 
370 
37r1 
37f2 
37°3 
a7¢4 
ares 
B76 
37¢7 
37° 8 
37r9 
37730 
, BIT 

2742 
3713 
R744 
3775 
3716 
3717 
3748 
4749 
3720 
i Aree § 
3722 
5723 
3724 
3720 
34726 
4757 
3728 
S729 
3720 
3771 
3722 
47323 
3724 
37275 
3726 
3727 
3728 
3729 
3740 
37G1 
27u2 
3743 


A FOCAL INTERPRETER FOR THE 8080 


Loc OBYVECT CODE 

149F FNTGF: 
149F OD OF 

18Al 34 OF 

L4A3 iD «OOF 

14A5 FO OE 

14A7 AB OC 

L4AS D7 OO 

14AB 1A OE 

14AD 11 OC 

L4AF FF OB 

14B1 98 OE 

14B3 72 OB 

1485 2F 00 

L4B7 FNTBLS$ 
1487 &O 

1488. U7 

14B9 GE 

14BA Qi 

1428 54 

14BC ~—6B 

14ED : 4C 

14BE ug 

148F QF 

14C0 Si 

14C1 55 

14C2 59 

14C3 00 

14C4 INLISTS3 
14C4 £3 03 

14C6 84 04 

14C8 93 OY 

14CA A6 O04 

14CC FC Q6 FLST25 
14CE 83 O07 

1400 pc 03 

1402 E5 06 FLST1° 
14D4 BY 05 

1406 BF 05 

OSBF COMMENTS 
1408 AG 06 ILIST: 
150A BY 05 

14DC BF O05 

14CE COMLST: 
140E 53 

146F 46 

14E0 7 ug 

14E1 Gy 

14£2 47 

1463 43 

L4YE4 Gi 

14E5 54 

14E6 uC 

14E£7 45 

12E8 | 57 

L4E9 4D 


SOURCE STATEMENT 


EGJ 
Ch. 
Dh 
Db 


$ 
XABS 


_XSGN 


XINT 
XRAN 
ARTN 
FEXP 
FLOG 
FSIN 
FCOS 
XSGT 
XUSF 
FIYS 


$ 


eae 
1G? 
mNe 
one 
‘T? 
‘xe 
19 
ey? 
‘Oo? 
¢Q? 
esr 
*y? 
0 


$ 


RECOVER 
IBAR 
IGNOR 
IRETN 
FLIMIT 
FINFIN 
ERRORS 
FINCR 
PROCESS. 
PC1 

PC1 

IF 1 
PROCESS 
PCl 

$ 

9S? 

ef? 

ey? 

‘po? 

*G? 

ce 

ne 

,7Te 

ey 

oF e 

# \y 9 

ene 


PARKER 


sFUNCTION ANDRESSES 
sABSCLUTE VALUE 
;SIGN PART 

;INTEGER PART 
sRANDOM NUMBER 
tARCTANGENT 
sEXPONENTTAL 


sTRIG FUNCTIONS 


FUNCTIONS 


SSQUARE ROOT 


sHYPERBOLIC SIN 

sLIST OF CONEN FUNCTION NAYES 
,ABS 

tSGN 

:ITR 

sPAN 

sARCTAN 

,E xP 

;LOG 

2SIN 

3COS 

{SQT 

,;USER 

sHYPERROLIC SIN 

sEND 

INPUT CONTROL CHARACTERS 
$C eC=BREAK 
tBeAe=RESTART 
$LeFe=IGNORE 

tC eRe=TERMINATE STRING 
t=<STANDARN 

:=SHORT 


3s CR=EDUMB 


s=STANDARN FORMAT 

T=SETS PLUS, eee 

sCeRo=SET COMMAND 

sALSO CONTINUE 

te 

tCR 
sCOMMAND DECODE LISTeSPEED OPTIMIZED 
tSET 

7FOR 

, IF 

7CO 


#60 TO 


;COMMENT 
«ASK 

2 TYPE 
s;LIBRARY 
sERASE 
sWRITE 
‘MODIFY 
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STVNT LOC. OBYECT CODE SOURCE STATEMENT 
3744 14EA 51 Db qe sQUIT 
3745 14E8 . 52 Db tR? sRETURN 
37u6 1GEC GA BL eye ; JUMP 
3747 14ED 00 DL 0 ;END 
x748 14EE COMGO: EGU $ sCOMMANN ROUTINE ANNRESSES 
3749 L4EE - B3 06 Ow SET 
A760 14F0 83 06 ‘oe FOR 
Z7E4 14F2 76 06 Dw IF 
3722 14F4 20 05 Dw No 
R7aZ — ~LSF6 AS: 05: * Dw GOTO 
B7EY 14F8 PF O05 Ow COMMENT 
RzeS L4FA 95 07 Dw ASK 
R7VEE L4FC. 97 O07 Dw TYPE 
3757 14FE - B3 OF | OW LIBRARY 
3728 1500 FE Of” Dw ERASE 
37e9 1502 FB U5 Dw wRITE 
27¢0 1504 54 08 Dw MODIFY 
S7EL 1506 64 04 Ow. START tQUIT 
3762 1508 6A 00 Dh RETRN 
37E3 150A 67 06 Du JUMP tCOMPUTFN TRANSFER 
37¢4 150C SRNLST?3 EGu $ ;MODIFY CONTROL TABLE 
3765 150C. 70 08 Dh SCHAR 3F oF e=CONTINUF. 
37E6 150E 72 08 Dw SCONT  £3BELL=CHANGFE SEARCH CHAR 
R7E7 1510 F3 03 Ow RECOVER $C eC e=RREAK 
37E8 1512 94 08 Dw SBAR SBeAe=RESTART 
3769 1514 75 «#08 Ow SCONT#3 SL eFe=FINISH LINE AS WAS 
3770 1516 LISTGO: Ewu $ 
3771 1516 FO 904 Dw SRETN 1CeRe=FNN LINE HERFe AS IS 
3772 1518 AB 08 “Oh SGOT sCHAR=SFARCH CHAR 
3773 151A ALISTS EWU $ tASKeTYPE LIST OF CONTROLS 
3774 151A. 25 Ob a 
3775 1518 22 DE one 
3776 151C 21 DL 21H 4) 
3777 151D 23 Ob 430 
3778 151E. 24 Db vst 
37979 151F 20 GLIST: Obs , 9 
3780 1520 2c TLIST? Ob *,? 
3781 1521. 38. Ob 38 
3782 1522. 00 Dt CR 
R7kR 1523 00 Db 0 
R7EY 1524 34 12 RANOS$ Dh 1234 
R785 1526. 34 12 OW 1234H 
3786 1528 ATLIST: EWU $ tASK=TYPE CONTROL CHAR TABLE 
3787 1528. 35 08 On . TINTR tX-FORMATY ONFLIMITER 
3788 152A. 1C¢ «608 Ow TQUOT S"—LITERAL NELIMITER 
R789 152C. 44 08 Dw TCRL2 3) -CR&LE : 
3750 — 2526: 49 6008 DW TCRLE sHeCR ONLY 
3764 1530 67 OB Dh TOUMP t$-NUMP SYMROL TABLF 
37¢2 1532. VE 08 Dw TASK4G tSPeTERMINATOR FOR NAMES 
3763 1534. uE 608 Ow TASK4 te-TERMINATOR FOR EXPRESSIONS 
3764 1536 B4 05 Ch PROCESS $t-TERMINATOR FOR COMMANU 
3765 1538. BF O5 Dw PC1 SCReTERMINATOR FOR STRINGS 
¢ ; ° ; 
a — : _ Sree a Eetien ©1976 Proceseor‘Technology-Cerporation 
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BANFO XASM 
STANT 


37¢9 
38¢9 
aati 
zare 
RRC3 
3804 
zat5 
3AaCE 
2807 
3208 
3aC9 
32°10 
3541 
3842 
32493 
3044 
3875 
3246 
3817 
3AqV8 
3P19 
3820 
Zaeih 
3Ae2 
S82 S 
3AS4 
3825 
3856 | 
3397 
3A28 
3249 
3A20 
38271 
BR22 
3a273. 
ZR2G 
3825 
3226 
3227 
3828 
3829 
3Ru0 
33541 
S8u2 
38u3 
2au4 
3845 
32u6 
3847 
3848 
3849 
ZREQ 
ZREZ 
aReO 
gReeZ 


A FOCAL INTERPRETER FOR THE 8080 
LOC OBJECT CODE 
153D " TERNS 
153D 20 
153E 28 
153F 20 
1540 OF 
1541 2A 
1542 5E 
1543 28 
1544 58 
1545 3C 
1546 ars) 
1547 50 
1548 3E 
1549 2c 
154A 3B 
1548 0D 
1s4c 3D 
154D 00 
L54E 00: 00 FLARGS 
1550 00 00 
1552 TLST3: 
1552 4E 08 
1554 BF 05 
1556 INFIX? 
1556 pc 03 
1558 C4 07 
155A cH 07 
155¢ Fo 07 
155E D7 07 
1560° c3 03 
1562 | 81 FLTONES 
1563 00 
1564 00 00 FLTZER: 
1566 00 00 
1568 g2 FLTTWO: 
1569 - 3 00 
156A 00 00 
156C FLAC 
1570 44 FISW: 
1571 SPECIAL? 
1571 5F 
1572 7F 
1573 OA 
1574 1B 
1575 00 
1576 03 
1577 00 
1578 00 00 ITER1$ 
157A 00 00 TEMPS 
157C 00 a0 TEMP2 
157E 22 TLST2: 
157F 6D 
1580 00 
15281 FF 
1582 20 DATBUF: 


SOURCE STATEMENT 


TASKY 
PC1 

$ 
ERRORY 
AKe 
AKe . 
AK4Y 

AK3 
RECOVER 
81: 


PAGE 


sTERMINATOR TABLE 


;UP ARR 


3TO ENO GFRTARG FROM SET 
sEND LIST 
;DATA STORAGE 


sLITERAL TERMINATORS 

et 

s;CR=AUTOMATINC QUOTE MATCH 
‘DATA CONTROL CHARACTERS 
SLEFT ARROW=KILL 
tRUBOUT=IGNORE 

sLF=IGONORE 

s;ALTNODE 

iCR INFIN 

$C eCe 


SFLOATING OUTPUT FORMAT 
sINPUT CHARACTERS 
LEFT ARROW 


SALT MONE 
sC eRe 

7C Ce 

ENO 


‘TEMP STORAGE 


;QUOTE 
sFUNCTION OR NUMBIS NOT AN ARG 


72 
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STYNT ‘EOC OBJECT CODE SOURCE STATEMENT. 


3R84 SAA ad Di 3770 SCUTCHAR. BUFFER 
3RE5 15A8 20 — TOBUF? DL ; 


20 | a ©1976 ProcessorTechnology-Corporation 
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RnL0 XASM A FOCAL INTERPRETER FOR THE 8080 | PAGE 74 
STWNT Loc OBJECT CODE SOURCE STATEMENT 


3REE 1505 FF _ COMEIN: OB 3779 
3Re7 1504 20 oc * 


20 : ©1976 ProcessorTechnology-Corporation 
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aNFO xAsMm 


STwhtT 


3Be8 


reg 
38¢0 
AREY 
zag? 


A FOCAL INTFRPRETER FOR THE 8080 


LOC 


1606 


1624 
1624 
1625 
1627? 


OBJECT COIE 


C0 
00 


SOURCE STATEMENT 


COME OUT: 


FRST: 


OC 


PTEXT POINTER 
SOUMMY | INF NUMRER. 
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BOBU XASM 


STwNT 


39¢3 
aRE4 
g9¢5 
“3R¢C6 
2R¢E7 
AACE 
2AES 
RABIN 
2A71 
2872 
lair ire) 
3374 
3875 
R376 
4877 
zA7B 
3879 
3820 
RRR 
3A EO 
BRez 
BRE 
RALS 
B8PE6 


A FOCAL INTERPRETER FOR THE 8080 


Loc 


1629 
162A 
1504 
1625 


1564 


15AB 
oc0s 
00090 
0045 
0049 
0045 
0045 
0049 
094D 
0051 
cos5 
0055 


0059 ~ 


0053 
OOf4 
0055 
0053 
0050 


CBJECT CODE 


00 


SOURCE 


FRSTX$ 
BUFREG: 
COMEUF s 
CFRS$ 
CFRSXKS 
OPTRO: 
SCR? 
SCRR3 
FSQRN?: 
FSQRX$ 
IOVT 
FMACX 
FMACS 
FMACT 
FMACG 
FSINX: 
FATNT: 
FATNUS 
FSNHD 
FEXCOV 
FSNHX 
FLOGE >: 
FLOG*X 


PAGE 76 
STATEMENT 
DL CR ~3OUMMY FND OF LINE 
EGU $. 
tGu COMEIN4¢1 ‘¢COMMANN RUFFER START 
EGU FRST sADNRESS OF FISRT LINE ¢(Ouyvy) 
EGY FLTZFR SPOINTER TO ZERO NATA 
EGu ITOBUF :CUTPUT POINTERS 
LGy SBANK 
Et&u <SBANK SPANK NO. OF SCRATCH PAN 
EGQu SCR+K0H 
£6u S<CR+4U4H 
FRU SCR+40H 
EGu SCR+4U0H 
EGU " SCR4+U4H + 
EQL SCRt48H 
EOL SCR4+4CH 
EGu SCR+S50H 
EGu SCRt+50H 
E&u SCR+54H 
EGU SCRE4EH 
EGu SCR+4FH 
EG SCR+50H 
EGu SCR+4EH 
Ebu eAtl SCR+56H 
END . 
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ABS 
ACCS 
ADLL7 
AnRL 
ALYST 
ASK 


mip P2 
win x3 


OFCS 
0036 
10FE 
6038 
151A 
0795 
0201 
1564 
35D4 
O56F 
C334 
0598 
LO02C 
126E 
0520 
0575 
OABC 
0ABS 
OA11 
0837 
0825 
OSF5 
018F 
O714 
0DD07 
O19€ 
12BC 
GF 93 
0050 
1562 
OBSF 
0885 
149F 
OBF? 
0c3D 
0063 
CEO0e2 
1464 
008D 
0480 
0281 
0938 
O26F 
0045 
1408 
12C2 
132C 
1366 
0691 
0900 


OFB3- 


1516 
O0FS8 
C00A 
11iF1 


FEXPO 
FINON 
FLAC 
FLN2 
FLOP 
FLTTW 
FMACD 
FMACS 
FNTBL 
FRST 
FSINB 
FSNHB 
FS@RL 


0037 
LO4F 
1086 
O7CYy 
02A5 
1528 
02090 
1459 
1503 
1167 
0398 
1477 
1208 
0012 
O26C 
OiFD 
L47E 
o0ADgS 
0A08 
OR2E 
0660 
09B2 
0CB1 
ORFF 
cBOD 
O1CF 
156C 
OPFB 
OACE 
1568 
OBAY 


C04e. 


1487 
1625 
ocri 
009s 
SEBS 


OATS 


0090 
O5A5 
0292 
0942 
0965 
0676 


0436 


120F 
2330 
0504 
OQ4AE 
41475 
1486 
OFE6 
1100 
0006 
000s 


ACCe2 
ADD10 
ADD3 
AK3 
ARITH 
ATSW 


FSINC 
FSNHC 
FSQRN 
FUN3 
GETLN 
GROUP 
GV2 
GV5 
13 
iF i 
INFIX 
INP10 
INP6 
INTEL 
ITER 
LASTO 
LIST3 
LOD1 
MODIF 
MUL X 
MUL X5 


0038 
10E3 
10A5 
0707 
OFB4 
147E 
162A 
1485 
1624 
116C 
0382 
0329 
£253 
6023 
039F 
0980 


 OAAD 


OAEC 
OA04 
030C 
CA38 
e9C3 
OCED 
oc05 
oEoS 
0783 
154E 
CELA 
1402 
1564 
0B90 
O004D 
OBFS3 
1629 
oCAi 
oocs 
C045 
0A63 
0211 
02A0C 
0807 
0917 
0633 
OEA6 
1556 
1378 
133F 
0000 
1578 
1475 
148D 
OFF3 
0854 
11¢5 
11£B 


ACC3 
O0D11 
AuDS 
Any 
ARTHB 
AXIN 
SUFR 
CHS 
CUMGO 
oR 

v4 
UGRP 
QLVX2 
D¥4PSW 
DUOONE 
ECHOL 


MoOLX1 
NO&GSW 


0039 
1OEC 
1005 
O7F9 
OcOF 
146D 


1482 


OFCS 
14EE 
0000 
0386 
052B 
1257 
L49E 
0588 
iS3A 
0A53 
G1EO 
OB4B 
Q30C 
O9SFE 
OLAY 
9055 
01C4 
OO3F 
1570 
aF60 
OE20 
24CC 
OBBF 
OBDE 
0045 
06B3 
OC1i 
oD4s 
0053 
O£9E 


OA7B 


08B1 
0247 
O8E9 
0S2C 
0484 
068pD 
OFBY 
T2eE5 
1356 
0000 
0692 
147A 
1488 


/ 1134 


1004 
1100 
1484 


PAGE 


0035 
1OF2 
003C 
O7Fe2 
OCAB 
L46F 
1625 
147F 
LANE 
0003 
1582 
O54F 
126A 
O3cF 
O57E 
0498 
OAaF 
NA28 
OAFE 
0517 
O9FD 
OiR4Y 
0059 
0054 
06F5 
128E 
O6FC 
0053 
1277 
08cB 
0051 
0938 
0776 
0C17 
0055 
0055 
0049 
OQ2R6 
15iF 
HO5h 
O8Nna 
0920 
06735 
0493 
14c4 
1322 
1350 
15a8 
0667 
Nona 
148A 
1137 
QOOE 
110 
OS5E 
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more 4 
NAS Me 
“a cTs 
HOaLp 


 aPprex 


ANTIO 
Any 
78 
PY 
pc 
PAE 
PRATL 
PTCI 
R% 
RETR 
RETR 
RSEK2 
SRANK 
ScRB 
sect 
corcy 
SRacS 
STaT 


STaty. 


Ter 
TFNPO 
Tex Tp 
TL STS 
Ge 
TSILP 
72 
VARGE 
WAEL 
WX 
XRAN 
¥S¢T 
oFFX 


0958 
1180 
O76F 
0024 
0908 
14eC 
13Be 
140A 
o5CD 
050C 
COTF 


"9164 


0122 
0369 
O06A 
1187 
1152 
0005 
0000 
08AB 
1571 
150C 
0425 
1482 
0146 
157C 
146F 
4552 
0821 
02D3 
OOAE 
OSCF 
O63E 
0656 
OfE0 
0698 
OF AG 


NORE 2 


tf ORmMS 
OPIA. 
OP3S 
GPTBL 


 CUTi1 


CUT4 
CUTS 
FACKC 
PCSA | 
PCPFI 
PROC 
PTC2 
RY 
FN1 
ROND 
RSH3 
SBAR 


SET 


SORTC 
SPNOR 
SRT1 


STE 


SVAD 
TCRL2 
TERMS 


fm ERROR(S) DETECTED 
f ERROR(S) DETECTED 


095C 
119A 
an2c 
0016 
(1490 
1426 
13€C 
141D 
OCBD 
05EB 
0084 
05B7 
0139 
0426 
OFE6 
11A8 
1155 
03894 
06B3 
OOFE 
0205 
O0EB 
1481 
144C 
0844 
1530 
1473 
003p 
081C 


. OBOE 


0041 
0611 
0004 
OF OD 
OF 50 
O31F 
OFBE 


NOPES 
NoSsSUB 
OPiS 
OP YA. 
OPTRO 
OUT12 
OUTS 
OVER 
PC 
PCHIK 
PRE x 
PROCE 
PUSHF 
RANO 
Rhe2 
RSH 
RUB1 
SCHAR 
SEXC 
SORTJ 
SRCi 
SRT2 
STR 
T2 
TCRLFE 
TEST 


DURING PASS 1 
OURING PASS 2 


0950 
0932 
oo1¢ 
C021 
1548 
1437 
13C7 
0033 
1471 
0444 
C034 
6584 
0071 
16524 
OfF 4 
1141 
0005 
0870 
0116 
O0E3 
0111 
GCOEA 


CFB6 | 


O2E5 
C849 
0002 
6835 
003¢ 
OFD, 
0797 
0042 
0638 
OSF8 
0436 
OF 54 
C325 
OF CO 


NORM 


NUTA 
UP?A 
UPuS 
vu 
UUT13 
UsT6 
wWVERE 
PLJ 


PLHK2. 


PRINT 

PrOCT 
PuStiJd 
READC 


 RNDO 


xSHO 
RUBOU 
SCONT 
SF 

SP 
SXC2 
SRTCN 
S1RO 
TASK 
TUUMP 
TESTC 
TLIST 
TMP3 
TST 
TYPE? 
VAL3 
wd 
wlEST 
RANT 
ASG3 
AUSK 


NORM] 
NUMD 
OF 2S 


 OP4&X 


OUTI1 
OUT2 
CUT7 
OVUN 
PLO 
PFI 
PRNTC 
PTi 
Re 
RECOV 
ROA 
RSH 
SB 
SCR 
SFOUN 
SPAD 
SRETN 
START 
STR1 
TASKY 
TEMP 
TESTN 
TLST2 
TMPY 
TSTGR 
UT2 
VALE 
we 
wTST2 
XOUTL 
XSGN 
XXX 


PAGE 


117C 


OAD 


NOTA 
CCE 
13A2 
143404 
13F9 
1136 
n5c0 
CO74% 
C118 
147E 
O3F1 
O3F3 
101 
1145 
1086C 
cons 
O89€F 
0003 
O4F0 
0464 
OF R7 
O84E 
1574 
02R9 
157E 
0044 
NeF7 
00R? 
0040 
0652 
N69 
O145 
OF ZY 
90n0 


78 
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